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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈