หมายเหตุ
ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service กําลังทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับจํานวนเต็มที่แสดงหมายเลขไฟล์ถัดไปที่พร้อมใช้งานสําหรับคําสั่ง Open
ไวยากรณ์
FreeFile[(rangenumber)]
อาร์กิวเมนต์ rangenumber ที่เลือกระบุหรือไม่ก็ได้คือ ตัวแปรที่ระบุช่วงที่จะส่งกลับหมายเลขไฟล์ว่างถัดไป ระบุ 0 (ค่าเริ่มต้น) เพื่อส่งกลับหมายเลขไฟล์ในช่วงปิด 1 – 255 ระบุ 1 เพื่อส่งกลับหมายเลขไฟล์ในช่วง 256 - 511
ข้อสังเกต
ใช้ FreeFile เพื่อใส่หมายเลขไฟล์ที่ไม่ได้ใช้งาน
ตัวอย่าง
หมายเหตุ
ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงนักพัฒนาในรายการ ดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน 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