合并同一文件夹下多个工作薄中Sheet1表.pdfVIP

Sub 合并当前目录下所有工作簿的工作表 1() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num, ini As Long Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath \ *.xls) AWbName = ActiveWorkbook.Name Num = 0 ini = 0 Do While MyName If MyName AWbName Then Set Wb = Workbooks.Open(MyPath \ MyName) Num = Num + 1 With Workbooks(1).ActiveSheet If ini = 0 Then Wb.Sheets(1).Range(Wb.Sheets(1).Cells(1, 1), Wb.Sheets(1).Cells(1, Wb.Sheets(1).UsedRan