FreeFile 函数

返回一个 Integer 类型的值，表示 Open 语句可以使用的下一个文件编号。

语法

FreeFile [ (rangenumber) ]

可选 rangenumber 参数是一个 Variant，它指定要返回的下一个自由文件编号所属的范围。 指定 0 (默认) 以返回介于 1-255 范围内的文件编号（含）。 指定 1 以返回 256-511 范围内的文件编号。

备注

使用 FreeFile 可提供未使用的文件编号。

示例

此示例使用 FreeFile 函数返回下一可用的文件编号。 将为循环中的输出打开 5 个文件，并且将向每个文件中写入一些示例数据。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。