我有一个宏，它在多个工作表和工作簿中查找值“a”并替换为值“B”，该宏循环通过文件夹中的文件和子文件夹中的文件，并替换它能找到的所有值。
现在，我希望宏返回工作表E列中的文件名，宏被写入其中，仅当在文件中进行更改时（因此，如果a被替换为B，则返回E列中的文件名）
但是我当前的代码只返回它运行的第一个工作簿的文件名。
我的代码从sub search开始，它将sub（）作为输入

Sub FindReplaceAcrossMultipleExcelWorkbooksFreeMacro(Path As String)

    Dim CurrentWorkbookName As String
    Dim ExcelCounter As Integer
    Dim ExcelWorkbook As Object
    Dim FindReplaceCounter As Integer
    Dim FindandReplaceWorkbookName As String
    Dim FindandReplaceWorksheetName As String
    Dim LastRow As Integer
    Dim oFile As Object
    Dim oFolder As Object
    Dim oFSO As Object
    Dim Shape As Shape
    Dim ws As Worksheet
    Dim myrange As Range
    Dim look As String

    FindandReplaceWorkbookName = ActiveWorkbook.Name
    FindandReplaceWorksheetName = ActiveSheet.Name
  
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(Path)

    For Each oFile In oFolder.Files              'Loop through every File in Active Workbook's folder path
    
        If InStr(1, oFile.Type, "Microsoft Excel") <> 0 And InStr(1, oFile.Name, FindandReplaceWorkbookName) = 0 And InStr(1, oFile.Name, "~") = 0 Then 'If the File Type contains the phrase Microsoft Excel isn't the current Excel Workbook and is NOT Lock File
            Set ExcelWorkbook = Application.Workbooks.Open(Path & "\" & oFile.Name) 'Open Excel Workbook
            CurrentWorkbookName = ActiveWorkbook.Name 'Name of Active Excel Workbook that was opened
            Application.Workbooks(CurrentWorkbookName).Activate 'Ensure open Excel Workbook is active for future reference using ActiveWorkbook
            Application.ScreenUpdating = False   'Limit screen flashing when Excel Workbooks opened and when Find & Replace is completed
            FindReplaceCounter = 2
            LastRow = Workbooks(FindandReplaceWorkbookName).Sheets(FindandReplaceWorksheetName).Cells(Rows.Count, 1).End(xlUp).Row 'Identify Last Row in Column A
            Do Until FindReplaceCounter > LastRow 'Complete the Find and Replace for all values in Column A & B
                For Each ws In ActiveWorkbook.Worksheets 'Loop through every Excel Worksheet in Active Excel Workbook

                    Set myrange = ws.UsedRange.Find(what:="ben")
                    If Not myrange Is Nothing Then
                    
                        Workbooks(FindandReplaceWorkbookName).Sheets(FindandReplaceWorksheetName).Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = ExcelWorkbook.Name
                        
                    End If
    
                    ws.Cells.Replace what:=Workbooks(FindandReplaceWorkbookName).Sheets(FindandReplaceWorksheetName).Cells(FindReplaceCounter, 1).Value, Replacement:=Workbooks(FindandReplaceWorkbookName).Sheets(FindandReplaceWorksheetName).Cells(FindReplaceCounter, 2).Value
                
                Next ws
                
                FindReplaceCounter = FindReplaceCounter + 1
                
            Loop
            
            ActiveWorkbook.Save                  'Save Active Excel Workbook
            ActiveWorkbook.Close                 'Close Active Excel Workbook

        End If
        
    Next oFile

    Application.ScreenUpdating = True            'Turn Excel ScreenUpdating back on

    Set ExcelWorkbook = Nothing
    Set oFSO = Nothing
    Set oFolder = Nothing
    Set oFile = Nothing
  
    Exit Sub
  
End Sub

Sub Search()

    FindReplaceAcrossMultipleExcelWorkbooksFreeMacro (Cells(2, 3).Value)

    MsgBox "The Find and Replace has been completed."
 
End Sub