VBA 逐行读入 .txt文件内容到(A,X)列单元格，怎么实现

VBA 逐行读入 .txt文件内容到(A,X)列单元格，如何实现？
VBA 逐行读入 .txt文件内容到(A,X)列单元格，如何实现？

[解决办法]
Line Input # 语句


从已打开的顺序文件中读出一行并将它分配给 String 变量。

语法

Line Input #filenumber, varname

Line Input # 语句的语法具有以下几个部分：

部分 描述 
filenumber 必要。任何有效的文件号。 
varname 必要。有效的 Variant 或 String 变量名。 



说明

通常用 Print # 将 Line Input # 语句读出的数据从文件中写出来。

Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。


Line Input # 语句示例
本示例使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。

VB code

Dim TextLineOpen "TESTFILE" For Input As #1    ' 打开文件。Do While Not EOF(1)    ' 循环至文件尾。    Line Input #1, TextLine    ' 读入一行数据并将其赋予某变量。    Debug.Print TextLine    ' 在立即窗口中显示数据。LoopClose #1    ' 关闭文件。