如何循环打开多个excel文件

SDXJC

如何循环打开同一个目录下的多个excel文件，求助大神

zjdh

Sub test()   ‘操作多工作簿多工作表 DIR+OPEN 方法
    Application.DisplayAlerts = False
    Mypath = ThisWorkbook.Path
    Myfile = Dir(Mypath & "\*.xls*")
    Do Until Myfile = ""
        If Myfile <> ThisWorkbook.Name Then
            Set WK = Workbooks.Open(Mypath & "\" & Myfile)
            For Each SH In WK.Sheets   ‘多工作表操作
                ARR=SH.Range("A1").CurrentRegion
                '................

            Next
            WK.Close False
        End If
        Myfile = Dir
    Loop
    Application.DisplayAlerts = True
End Sub

SDXJC

zjdh 发表于 2023-1-22 12:51
Sub test()   ‘操作多工作簿多工作表 DIR+OPEN 方法
    Application.DisplayAlerts = False
    Mypath ...

新年快乐！
谢谢！