excel - 在 VBA 中逐行读取/解析文本文件

Question

我正在尝试使用 VBA 解析文本文档并返回文本文件中给出的路径。例如，文本文件如下所示:

*Blah blah instructions
*Blah blah instructions on line 2
G:\\Folder\...\data.xls
D:\\AnotherFolder\...\moredata.xls

我希望 VBA 一次加载 1 行，如果它以 * 开头，则移至下一行(类似于正在注释的该行)。对于具有文件路径的行，我想将该路径写入单元格，例如第一个路径为 A2，下一个路径为 B2，等等。

我希望得到回答的主要问题是:

1. 使用 VBA 读取文本文件的最佳/简单方法是什么？
2. 如何逐行执行此操作？

Answer 1

对于文本文件的最基本读取，请使用open

示例:

Dim FileNum As Integer
Dim DataLine As String

FileNum = FreeFile()
Open "Filename" For Input As #FileNum

While Not EOF(FileNum)
    Line Input #FileNum, DataLine ' read in data 1 line at a time
    ' decide what to do with dataline, 
    ' depending on what processing you need to do for each case
Wend

#作者注释 - 请停止添加 close #FileNum - 它已在评论中解决，并且不需要作为对此答案的改进