注意
如果 Microsoft Jet 表达式服务在沙盒模式下运行，则本主题中描述的函数、方法、对象或属性将被禁用，这会阻止对潜在不安全表达式进行评估。 有关沙盒模式的详细信息，请在帮助中搜索“沙盒模式”。
如果已达到为随机或顺序输入打开的文件的末尾，返回包含布尔值 True 的整数。
语法
EOF (文件号)
必需的 filenumber参数是包含任何有效文件号的整数。
备注
使用 EOF 可避免因尝试获取超过文件末尾的输入而产生的错误。
EOF 函数返回 False，直到到达文件末尾。 打开文件进行 随机 或 二进制 访问后， EOF 将返回 False ，直到最后执行的 Get 语句无法读取整个记录。
打开文件以 进行二进制 访问后，尝试使用 Input 函数通读文件直到 EOF 返回 True 将生成错误。 在使用 Input 读取二进制文件时，请使用 LOF 和 Loc 函数而不是 EOF，或者在使用 EOF 函数时使用 Get。 打开文件进行 输出后， EOF 始终返回 True。
示例
注意
下面的示例演示了在Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在“搜索”旁边的下拉列表中选择“开发人员参考”，然后在搜索框中输入一个或多个术语。
此示例使用 EOF 函数来检测文件的结尾。 此示例假定 MYFILE 是一个包含几行文本的文本文件。
Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1