VBA打开包含特定关键字的文件

Sub OpenFilesWithKeyword()
    Dim fso As Object
    Dim folderPath As String
    Dim keyword As String
    Dim file As Object
    Dim fileContent As String
    
    ' 设置文件夹路径和关键字
    folderPath = "C:\Files"
    keyword = "特定关键字"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 遍历文件夹中的文件
    For Each file In fso.GetFolder(folderPath).Files
        ' 使用TextStream对象读取文件内容
        Set fileContent = file.OpenAsTextStream()
        
        ' 检查文件内容是否包含关键字
        If InStr(fileContent.ReadAll, keyword) > 0 Then
            ' 打开包含关键字的文件
            Workbooks.Open file.Path
        End If
        
        ' 关闭TextStream对象
        fileContent.Close
    Next file
    
    ' 释放对象
    Set fileContent = Nothing
    Set file = Nothing
    Set fso = Nothing
End Sub