ข้ามไปที่เนื้อหาหลัก
การสนับสนุน
ลงชื่อเข้าใช้

ฟังก์ชัน FreeFile

หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service เรียกใช้ในโหมด Sandbox ซึ่งป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย ดูข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ค้นหา "โหมด Sandbox" ในวิธีใช้

ส่งกลับจํานวนเต็มที่แสดงค่า หมายเลขไฟล์ พร้อมใช้งานโดย ข้อความ Open

ไวยากรณ์

FreeFile[(rangenumber)]

อาร์กิวเมนต์ rangenumber เพิ่มเติมคือตัวแปรที่ระบุช่วงที่จะส่งกลับหมายเลขไฟล์ฟรีถัดไป ระบุ 0 (ค่าเริ่มต้น) เพื่อส่งกลับหมายเลขไฟล์ในช่วงครอบคลุม 1 - 255 ระบุ 1 เพื่อส่งกลับหมายเลขไฟล์ในช่วง 256 – 511

ข้อสังเกต

ใช้ FreeFile เพื่อใส่หมายเลขไฟล์ที่ไม่ได้ถูกใช้อยู่

ตัวอย่าง

หมายเหตุ: ตัวอย่างที่ตามมาจะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) For more information about working with VBA, select Developer Reference in the drop-down list next to Search and enter one or more terms in the search box.

ตัวอย่างนี้ใช้ฟังก์ชัน FreeFile เพื่อส่งกลับหมายเลขไฟล์ที่พร้อมใช้งานถัดไป ไฟล์ห้าไฟล์จะเปิดขึ้นเพื่อแสดงผลภายในการวนรอบ และข้อมูลตัวอย่างบางอย่างจะถูกเขียนลงในแต่ละไฟล์

Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ขยายทักษะ Office ของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×