Excel VBA根据excel文件中的列数搜索文本文件中的文本字符串

Sub SearchTextInFile()
    Dim filePath As String
    Dim fileNum As Integer
    Dim textLine As String
    Dim searchColumn As Integer
    Dim searchText As String
    Dim found As Boolean
    
    ' 设置文件路径和搜索参数
    filePath = "C:\path\to\your\file.txt"
    searchColumn = 2 ' 假设我们要在第二列搜索
    searchText = "example" ' 要搜索的文本字符串
    
    ' 打开文本文件
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    
    ' 遍历文本文件的每一行
    Do Until EOF(fileNum)
        Line Input #fileNum, textLine
        ' 检查指定列是否包含搜索文本
        If InStr(1, Mid(textLine, searchColumn * 2 - 1, Len(textLine)), searchText) > 0 Then
            found = True
            Exit Do
        End If
    Loop
    
    ' 关闭文件
    Close #fileNum
    
    ' 输出结果
    If found Then
        MsgBox "文本字符串 '" & searchText & "' 在文件中找到。"
    Else
        MsgBox "文本字符串 '" & searchText & "' 在文件中未找到。"
    End If
End Sub

Open filePath For Input As #fileNum: FileEncoding := 65001 ' UTF-8编码