FreeFile 函數

使用 Open 陳述式，傳回代表下一個可供使用的檔案編號的整數。

語法

FreeFile [ (rangenumber) ]

選用 rangenumber 引數為 Variant，指定要傳回的下一個可用檔案編號的範圍。 指定 0 (預設) ，以傳回 1-255 範圍內含的檔案號碼。 指定 1 以傳回範圍 256–511 中的檔案號碼。

註解

使用 FreeFile 提供尚未使用的檔案編號。

範例

此範例使用 FreeFile 函數傳回下一個可用的檔案編號。 已開啟五個檔案以在迴圈內輸出，而一些資料範例會寫入到各個檔案。

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file
        ' number.
    Open "TEST" & MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex

另請參閱

• 函式 (Visual Basic for Applications)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。