注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息,请在“帮助”中搜索“沙盒模式”。
返回一个 Integer 类型的值,表示 Open 语句可以使用 的下一个 文件编号 。
语法
FreeFile[ (rangenumber) ]
可选的 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