FreeFile 函數

套用到
Microsoft 365 Access Access 2021 Access 2019 Access 2016

注意

若 Microsoft Jet Expression Service 以沙盒模式執行,則本主題所述的函式、方法、物件或屬性將被禁用,避免評估潛在不安全的表達式。 想了解更多沙盒模式的資訊,請在說明中搜尋「sandbox mode」。

回傳一個整數,代表下一個可供 Open 語句使用的檔案號碼。

語法

FreeFile[ (範圍號) ]

可選的 rangenumber 參數是一個 Variant,用來指定下一個空閒檔案號要從哪個範圍回傳。 指定一個 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