如何在excel VBA中查找文本文件中的特定文本，并在下面一行中添加附加文本

Sub FindAndAddText()
    Dim fso As Object
    Dim file As Object
    Dim textFile As Object
    Dim filePath As String
    Dim searchText As String
    Dim appendText As String
    Dim found As Boolean
    
    ' 设置文件路径、搜索文本和附加文本
    filePath = "C:\path\to\textfile.txt"
    searchText = "特定文本"
    appendText = "附加文本"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查文件是否存在
    If fso.FileExists(filePath) Then
        ' 打开文本文件
        Set file = fso.GetFile(filePath)
        Set textFile = file.OpenAsTextStream(1, -2)
        
        ' 逐行搜索文本
        Do Until textFile.AtEndOfStream
            Dim line As String
            line = textFile.ReadLine
            
            ' 检查当前行是否包含搜索文本
            If InStr(line, searchText) > 0 Then
                ' 在下一行添加附加文本
                ActiveCell.Offset(1, 0).Value = line & appendText
                found = True
                Exit Do
            End If
        Loop
        
        ' 关闭文本文件
        textFile.Close
        
        ' 检查是否找到了搜索文本
        If Not found Then
            MsgBox "未找到特定文本"
        End If
    Else
        MsgBox "文件不存在"
    End If
    
    ' 释放对象
    Set textFile = Nothing
    Set file = Nothing
    Set fso = Nothing
End Sub