vba逐行读取txt内容

在VBA中，可以使用以下代码逐行读取txt内容：

Open "文件路径" For Input As #1
Do While Not EOF(1)
    Line Input #1, s
    ' 在这里可以对每一行的内容进行处理
Loop
Close #1

其中，"文件路径"是你要读取的txt文件的路径，#1是文件的代号，s是一个字符串变量，用于保存每一行的内容。在循环中，使用Line Input #1, s语句将每一行的内容读取到s变量中，然后可以对s进行处理。循环会一直执行，直到读取到文件末尾(EOF)为止。最后，使用Close #1语句关闭文件。
#### 引用[.reference_title]
- *1* [[求助] 请问下 如何用VBA逐行读取文本文件](https://blog.csdn.net/weixin_29131533/article/details/118044464)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item]
- *2* *3* *4* *5* [VBA提高篇_12 文本文件逐行读取,输入输出操作自如](https://blog.csdn.net/pigerr/article/details/128828519)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]