VBA 搜索文件夹下所有xlsx文件，并运行宏

Sub 遍历文件夹下所有文件()
'
'
'
    Dim MyFile As String
    Dim Arr(100) As String
    Dim count As Integer
    MyFile = Dir("C:\Users\60930\Desktop\孔隙体积压缩系数-已完成67\孔隙体积数据2020.12.20-51块\" & "*.xlsx")
    count = count + 1
    Arr(count) = MyFile
      
    Do While MyFile <> ""
        MyFile = Dir
        If MyFile = "" Then
            Exit Do
        End If
        count = count + 1
        Arr(count) = MyFile         '将文件的名字存在数组中
    Loop
      
    For i = 1 To count
        Workbooks.Open Filename:="C:\Users\60930\Desktop\孔隙体积压缩系数-已完成67\孔隙体积数据2020.12.20-51块\" & Arr(i)  '循环打开Excel文件
            Call 原始记录修改                         ·需要运行的宏
                        
            'Cells(1, 1) = "alex_bn_lee"             '修改打开文件的内容
        ActiveWorkbook.Close savechanges = True     '关闭打开的文件
    Next
End Sub

修改文件夹路径，运行红完成记得保存excel表格