[已解决]请教：文件夹中所有工作薄同时执行宏问题

lzylyw

文件夹中有上百个EXCEL文档，需要同时运行已录制的宏操作，求助提供增加代码示例？

最佳答案

月排行榜 / 总排行榜

我行我速2008

2022-8-22 15:35

Sub 获取当前文件夹文件()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set MyFile = CreateObject("Scripting.FileSystemObject")
    For Each f In MyFile.GetFolder(ActiveWorkbook.path).Files       '.subfolders：子文件夹
        If InStr(f.Name, ActiveWorkbook.Name) = 0 And InStr(f.Name, ".xls") Then
            Set Wb = Workbooks.Open(f)
            With Wb
                For Each Sh In .Worksheets
                    ar = Sh.[a1].CurrentRegion

                Next Sh
                .Save
                .Application.Windows(1).Visible = True
                .Close False
            End With
        End If
    Next f
    Set f = Nothing
    Set MyFile = Nothing
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

我行我速2008

Sub 获取当前文件夹文件()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set MyFile = CreateObject("Scripting.FileSystemObject")
    For Each f In MyFile.GetFolder(ActiveWorkbook.path).Files       '.subfolders：子文件夹
        If InStr(f.Name, ActiveWorkbook.Name) = 0 And InStr(f.Name, ".xls") Then
            Set Wb = Workbooks.Open(f)
            With Wb
                For Each Sh In .Worksheets
                    ar = Sh.[a1].CurrentRegion

                Next Sh
                .Save
                .Application.Windows(1).Visible = True
                .Close False
            End With
        End If
    Next f
    Set f = Nothing
    Set MyFile = Nothing
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

我行我速2008

想得到有交的帮助，上附件，并写清需实现的目标，感觉就是多工作簿操作。