注意: 如果 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
