使用Excel VBA在txt和csv文件中搜索字符串，而无需打开文件

Sub SearchStringInFiles()
    Dim fso As Object
    Dim folderPath As String
    Dim fileName As String
    Dim fileExtension As String
    Dim fileContent As String
    Dim searchString As String
    
    ' 设置文件夹路径和搜索字符串
    folderPath = "C:\YourFolderPath" ' 替换为实际文件夹路径
    searchString = "YourSearchString" ' 替换为实际搜索字符串
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 遍历文件夹中的所有文件
    fileName = Dir(folderPath & "\*.*")
    Do While fileName <> ""
        ' 获取文件扩展名
        fileExtension = fso.GetExtensionName(folderPath & "\" & fileName)
        
        ' 只处理txt和csv文件
        If fileExtension = "txt" Or fileExtension = "csv" Then
            ' 打开文件并读取内容
            Open folderPath & "\" & fileName For Input As #1
            fileContent = Input$(LOF(1), 1)
            Close #1
            
            ' 搜索字符串
            If InStr(1, fileContent, searchString, vbTextCompare) > 0 Then
                ' 找到匹配的字符串
                MsgBox "在文件 " & fileName & " 中找到匹配的字符串。"
            End If
        End If
        
        ' 继续下一个文件
        fileName = Dir
    Loop
    
    ' 释放对象
    Set fso = Nothing
End Sub