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