Vba读取文件的每一行

VBA 可以通过不同的方法逐行读取文本文件。

逐行读取文本文件的方法

• 使用 Line Input #：这是逐行读取文本文件的基本方法。通过 Open 语句打开文件，然后使用 Line Input # 逐行读取，直到文件末尾（EOF）167。
• 结合循环和 EOF 判断：在循环中使用 Do While Not EOF(fileNumber) 结合 Line Input # 来实现逐行读取，直到文件结束1。
• 处理特殊情况：对于特定格式的文本文件，如以特定字符开头的行或具有特定分隔符的列，需要在读取后进行相应的字符串处理，例如使用 Left 函数判断行的开始或使用 Split 函数分割行内容2。

示例代码

以下是一个简单的 VBA 示例代码，演示如何逐行读取文本文件，并将每行内容放入 Excel 的一个单元格中：

Sub ReadTextFile()
    Dim fileNumber As Integer
    fileNumber = FreeFile
    Open "d:\demo\部门名单汇总.txt" For Input As #fileNumber
    
    Do While Not EOF(fileNumber)
        Line Input #fileNumber, LineText
        ' 将读取的行内容放入Excel单元格中
        ' 假设数据写入到当前工作表的A列
        Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = LineText
    Loop
    
    Close #fileNumber
End Sub

此代码段首先打开一个文本文件进行输入，然后使用 Line Input # 逐行读取文件内容，并将每行内容赋值给 LineText 变量。接着，将 LineText 的内容写入到 Excel 工作表的 A 列中，最后关闭文件。7。