注意
如果 Microsoft Jet 表达式服务在沙盒模式下运行，则本主题中描述的函数、方法、对象或属性将被禁用，这会阻止对潜在不安全表达式进行评估。 有关沙盒模式的详细信息，请在帮助中搜索“沙盒模式”。
返回包含以 输入 或 二进制 模式打开的文件中的字符的字符串。
语法
输入 (number， [# ] filenumber)
Input 函数语法具有以下参数：
| 参数 | 说明 |
|---|---|
| 编号 | 必需。 指定要返回的字符数的任何有效数值表达式。 |
| filenumber | 必需。 任何有效的文件编号。 |
备注
使用 Input 函数读取的数据通常写入带有 Print # 或 Put 的文件。 仅对以 输入 或 二进制 模式打开的文件使用此函数。
与 Input # 语句不同， Input 函数返回它读取的所有字符，包括逗号、回车符、换行符、引号和前导空格。
打开文件以 进行二进制 访问后，尝试使用 Input 函数通读文件直到 EOF 返回 True 将生成错误。 在使用 Input 读取二进制文件时，请使用 LOF 和 Loc 函数而不是 EOF，或者在使用 EOF 函数时使用 Get。
注意
对文本文件中包含的字节数据使用 InputB 函数。 使用 InputB，number 指定要返回的字节数，而不是要返回的字符数。
示例
注意
下面的示例演示了在Visual Basic for Applications (VBA) 模块中使用此函数。 有关使用 VBA 的详细信息，请在“搜索”旁边的下拉列表中选择“开发人员参考”，然后在搜索框中输入一个或多个术语。
此示例使用 Input 函数一次从文件中读取一个字符，并将其打印到 “即时 ”窗口。 此示例假定是一个 TESTFILE 包含几行示例数据的文本文件。
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.