Excel VBA - 在文本文件中搜索单词并在 excel 中返​​回 true 或 false

Question

我有大约 200 个不同名称的文本文件存储在一个文件夹中。我想要的是找到特定单词时（例如错误，错误）。我希望excel在A列中的文本文件名旁边提及true或false。

Name        Error Found
Textfile1   TRUE
Textfile2   FALSE
Textfile3   TRUE
Textfile4   TRUE
Textfile5   TRUE
Textfile6   TRUE
Textfile7   TRUE
Textfile8   TRUE
Textfile9   TRUE
Textfile10  FALSE
Textfile11  FALSE
Textfile12  FALSE
Textfile13  FALSE
Textfile14  FALSE

Answer 1

我很无聊，这段代码未经测试，远非完美。将其粘贴到新的代码模块中并调整常量以满足您的需要。

这可能根本不起作用，但可能会给你一些指导。

Public Const SearchPath = "C:\example\"
Public Const SearchTerm = "helloworld"

Sub Main()
Dim oFSO As Object: Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oFolder As Object
Dim oFile As Object

Dim Sheet As Worksheet: Set Sheet = ThisWorkbook.Worksheets("Sheet1")
Dim Index As Integer: Index = 1
Dim Result As Boolean
Dim Search As String: Search = SearchTerm
' retreive a list of files
    Set oFolder = oFSO.getFolder(SearchPath)

    For Each oFile In oFolder.Files
        Sheet.Cells(Index, 1).Value2 = oFile.Name
        Index = Index + 1
    Next oFile

    Set oFile = Nothing
    Set oFolder = Nothing
    Set oFSO = Nothing

' process list of files
    Index = 1

    While Not Sheet.Cells(Index, 1).Value2 = ""
        Result = Process(SearchPath & Sheet.Cells(Index, 1), Search) ' only the filename was being passed, added the parent folder from the constant above
        If Result = True Then
            Sheet.Cells(Index, 2).Value2 = "TRUE"
        Else
            Sheet.Cells(Index, 2).Value2 = "FALSE"
        End If
        Index = Index + 1
    Wend
End Sub

Public Function Process(ByVal File As String, ByVal Search As String) As Boolean
Dim Result As Boolean: Result = False
Dim FileNumber As Integer: FileNumber = FreeFile()
Dim Data As String

    Open File For Input As #FileNumber
    While Not EOF(FileNumber)
        Line Input #FileNumber, Data
        If InStr(1, Search, Data) > 0 Then
            Result = True
            GoTo BOut
        End If
    Wend
BOut: ' I used the wrong syntax for goto statements here
    Close #FileNumber
    Process = Result

End Function