ฟังก์ชัน FreeFile

หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า 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, 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

ตัวอย่าง

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

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

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

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