excel合并工作簿和工作表的代码

把多个工作簿合并到一个工作簿作为新工作簿的一张表（宏代码）Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbo

把多个工作簿合并到一个工作簿作为新工作簿的一张表（宏代码） Sub () 合并当前目录下所有工作簿的全部工作表 Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim GAs Long Dim Num As Long Dim BOX As String Application.ScreenUpdating =False MyPath =ActiveWorkbook.Path MyName =Dir(MyPath &"\" &"*.xls") AWbName =ActiveWorkbook.Name Num =0 Do While MyName <> "" If MyName <> AWbName Then Set Wb =Workbooks.Open(MyPath &"\" &MyName) Num =Num +1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row +2, 1) =Left(MyName, Len(MyName) -4) For G= 1To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row +1, 1) Next WbN =WbN &Chr(13) &Wb.Name Wb.Close False End With End If MyName =Dir Loop Range("A1").Select Application.ScreenUpdating =True MsgBox "" &Num &"" &Chr(13) &WbN, 共合并了个工作薄下的全部工作表。如下： vbInformation, "" 提示 End Sub -----------—---== 具体操作：在工作簿目录下新建一工作簿，工具宏编辑器插入模块粘贴代码 运行 excel 如何将一个工作簿中的多个工作表合并到一张工作表上 打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面 的代码复制到里边去，然后上面有个运行运行子程序就可以了，代码如下，如果出现 问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试 Sub () 合并当前工作簿下的所有工作表