Попытка поиска в содержимом всех текстовых файлов в каталоге строки и, когда она найдена, отправить путь к файлу в ячейке.

Question

У меня есть список поисковых запросов в диапазоне E3: E47. Я хочу, чтобы макрос выполнял поиск во всех текстовых файлах в каталоге значений каждой ячейки, если строка найдена, я хочу сообщить о пути к файлу к эквивалентному столбцу K.

У меня есть этот код, которыйработает, но ничего не делает.

Sub Button1_Click()
Dim theString As String
Dim path As String
Dim StrFile As String
Dim rng As Range
Dim fso As New FileSystemObject
Dim file As TextStream
Dim line As String
Dim cel As Range
Dim Result As Range

Set rng = Application.Range("Sheet1!E3:E47")
path = Range("O1").Value
Result = Range("K3")
StrFile = Dir(path)


For Each cel In rng.Cells
    With cel

    theString = Result.Value
    Set file = fso.OpenTextFile(path & StrFile)
    Do While Not file.AtEndOfLine
        line = file.ReadLine
        If InStr(1, line, theString, vbTextCompare) > 0 Then
            StrFile = Result
            Result = Result.Offset(0, 1)
        Else
            Result.Value = "Nothing Found"
            Result = Result.Offset(0, 1)
        End If
    Loop
    End With
Next cel


End Sub