注意
如果 Microsoft Jet 運算式服務以沙箱模式執行，則會停用本主題中所述的函數、方法、物件或屬性，這會防止評估可能不安全的運算式。 如需沙箱模式的詳細資訊，請在說明中搜尋「沙箱模式」。
傳回一個整數，代表 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