VBA检索文件下所有.txt文件，并在.txt文件中查找指定字符串

可以使用VBA编写一个宏来完成这个任务。以下是一个可能的代码示例：

Sub SearchFilesForText()
    Dim strSearchFolder As String
    Dim strSearchString As String
    Dim strFileExtension As String
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objTextStream As Object
    Dim strFileContent As String
    
    '设置搜索参数
    strSearchFolder = "C:\Users\UserName\Desktop\"
    strSearchString = "keyword"
    strFileExtension = "*.txt"
    
    '创建文件系统对象
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    
    '获取搜索文件夹
    Set objFolder = objFileSystem.GetFolder(strSearchFolder)
    
    '遍历文件夹中的文件
    For Each objFile In objFolder.Files
        '检查文件扩展名是否为.txt
        If objFileSystem.GetExtensionName(objFile.Path) = "txt" Then
            '打开文件并搜索文本
            Set objTextStream = objFileSystem.OpenTextFile(objFile.Path)
            strFileContent = objTextStream.ReadAll
            objTextStream.Close
            If InStr(strFileContent, strSearchString) > 0 Then
                Debug.Print objFile.Path
            End If
        End If
    Next objFile
End Sub

在上述代码中，设置了要搜索的文件夹、要搜索的字符串和要搜索的文件扩展名。然后，使用文件系统对象来遍历文件夹中的所有文件，并检查它们的扩展名是否为.txt。对于每个.txt文件，宏将打开文件并读取其内容。如果文件中包含指定的搜索字符串，则宏将在调试窗口中打印出该文件的路径。可以根据需要修改代码来满足特定的搜索需求。