提供VBA代码，读取指定文本文件的内容并将每行放入一个单元格

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

Sub ReadTextFileIntoExcel()
    Dim FileNum As Integer
    Dim DataLine As String
    Dim LastRow As Long

    ' 打开文本文件
    FileNum = FreeFile()
    Open "C:\path\to\your\textfile.txt" For Input As #FileNum

    ' 找到工作表的最后一行
    With ThisWorkbook.Sheets(1)
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    End With

    ' 逐行读取文本文件
    While Not EOF(FileNum)
        Line Input #FileNum, DataLine
        ' 将读取的行放入Excel的下一个单元格
        With ThisWorkbook.Sheets(1)
            .Cells(LastRow, 1).Value = DataLine
            LastRow = LastRow + 1
        End With
    Wend

    ' 关闭文件
    Close #FileNum
End Sub

这段代码首先使用Open语句打开指定路径的文本文件，并使用Line Input逐行读取文件内容。每读取一行，就将其赋值给Excel工作表的第一个列的下一个空白单元格。最后，使用Close语句关闭文件。请确保将"C:\path\to\your\textfile.txt"替换为实际的文件路径。589