FreeFile 函數

附註: 如果 MicrosoftJet 運算式服務是在沙箱模式中執行,則本主題中所述的函數、方法、物件或屬性會停用,這可防止評估可能不安全的運算式。 有關沙箱模式的詳細資訊,在 「協助」中搜尋「沙箱模式」。

會返回代表下一個 檔案編號 Open 語句可用的 整數

語法

FreeFile[ (rangenumber) ]

選擇性 rangenumber 引數是一個 Variant,指定下一個可用檔案編號的引數。 指定 0 (預設) ,以在 1 到 255 範圍內 ,包括 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

需要更多協助?

增進您的 Office 技巧
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×