我这次只有这点了，下次有了我一定我给些!

Question

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

Answer 1

楼上说的是读出全部,如果你只想读接下来的一行的话,可以用获取当前指针的位置来处理,如果是纯文本的话建议用FSO更简单.

Answer 2

Dim TextLine
Open "文件路径及文件名" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
   Debug.Print TextLine   ' 在立即窗口中显示数据。
Loop
Close #1   ' 关闭文件。以上载自MSDN