Applies ToMicrosoft 365 专属 Access Access 2021 Access 2019 Access 2016

注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息,请在“帮助”中搜索“沙盒模式”。

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

语法

FreeFile[ (rangenumber) ]

可选的 rangenumber 参数是一个 Variant 类型的值,它指定要从中返回下一个可用文件编号的范围。 指定 0 (默认) 以返回范围 1 到 255(含)的文件编号。 指定 1 以返回 256 – 511 范围内的文件编号。

备注

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

示例

注意: 下面的示例演示了如何在 Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息,请在搜索旁边的下拉列表中选择“开发人员参考”,并在搜索框中输入一个或多个术语。

此示例使用 FreeFile 函数返回下一个可用文件编号。 在循环中打开五个文件以供输出,并将一些示例数据写入每个文件。

Dim MyIndex, FileNumberFor 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 #FileNumberNext MyIndex

需要更多帮助?

需要更多选项?

了解订阅权益、浏览培训课程、了解如何保护设备等。

社区可帮助你提出和回答问题、提供反馈,并听取经验丰富专家的意见。