注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。
返回字符串，其中包含在 输入 或 二进制 模式下打开的文件中的字符。
语法
输入 ( 数字[ # ] filenumber)
Input 函数语法具有以下参数：
|
参数 |
说明 |
|
number |
必需。 指定要返回的字符数的任何有效 数值表达式 。 |
|
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 MyCharOpen "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.LoopClose #1 ' Close file.
