使用VBA将文本文件中的特定行导入Excel电子表格

Sub ImportTextFile()
    Dim FilePath As String, Text As String, TextLine As String
    Dim FileContent() As String, i As Integer
    
    ' 设置文本文件路径
    FilePath = "C:\Path\To\Your\File.txt"
    
    ' 打开文本文件并读取内容
    Open FilePath For Input As #1
    Text = Input$(LOF(1), 1)
    Close #1
    
    ' 将文本内容按行分割为数组
    FileContent() = Split(Text, vbCrLf)
    
    ' 遍历数组，将特定行导入Excel电子表格
    For i = LBound(FileContent) To UBound(FileContent)
        TextLine = FileContent(i)
        
        ' 判断是否为特定行，可以根据具体需求进行修改
        If InStr(TextLine, "特定行的关键词") > 0 Then
            ' 将特定行导入Excel电子表格的指定单元格
            Cells(i + 1, 1).Value = TextLine
        End If
    Next i
End Sub