excel生成多个工作簿(xlsx多个工作簿汇总成一个工作簿)

1. xlsx多个工作簿汇总成一个工作簿

1、新建一个文件夹，将需要合并的excel文档复制到该文档目录下。

2、新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，进入VBA控制台。

3、在菜单栏点击“插入”菜单，选择“模块”选项，进入模块编辑界面。

4、在编辑框中复制以下代码，注意符号，需是英文状态下。'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In .SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks.Open(vrtSelectedItem) '复制工作表 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "") '关闭被合并工作簿 tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = Nothing End Sub5、代码输入后，点击菜单项中“运行”，选择“运行子过程”选项，或者按下F5快捷键，运行代码。6、运行代码后，会弹出文档选择界面，找到新建文件夹的路径，选择你所需要合并的文档，选择文档后，点击“打开”，代码正在运行，运行时间视文档数目而定。7、代码段运行结束后，就会出现已经合并完成的excel文档界面，新工作表的名称等于原工作簿的名称，大功告成！

2. excel2013多个工作簿汇总成一个工作簿

目前所有版本默认工作表数量是3个，但可以继续添加

3. excel2016多个工作簿汇总成一个工作簿

1、在表格中的加载项中找到“方方格子”选择汇总拆分功能；

2、在下拉菜单中选择“合并多表”；

3、选择全部工作簿，然后选择需要合并的工作表，不需要合并的，则不在前面勾选；

4、运行后会弹出信息，点击确定，关闭

5、这样，在一个新的工作表中，就汇总了需要的数据。

4. 多个工作簿汇总成一个工作簿2010

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet12、选择查看代码（PS：excel有着一项，WPS没有）

3、将下列代码复制到文本框中：Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsworkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&"\"&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName<>""IfMyName<>AWbNameThenSetWb=Workbooks.Open(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"EndSub4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

5. 多个工作簿内容汇总成一个工作簿

我们进行工作簿的合并,先建立一个文件夹,把所有需要合并的到一起的工作簿都放到里面。

2.

在新建的文件夹里面新建一个Excel工作表,作为合并工作簿的载体。

3.

双击打开新建的Excel表格,鼠标右键单击工作表左下角的Sheet1,弹出的栏目中点击 ...

4.

点击之后弹出文件添加选择页面。