想要将几百个单独的excel表汇总到一个excel表中,首先需要将所有excel表格的后缀名全部改为.xls。通常的excel表格的后缀名有.xls和.xlsx两种。最后再把所有的sheet中需要打印的区域批量设置成一样的格式。最后打印即可。
1、将.xlsx后缀名的表格全部放到一个新建文件夹中,在文件夹中新建一个.txt文件。
2、打开txt文件,并输入【ren*.bat*.xls】,保存,关闭。将txt文件的后缀名改为bat,然后运行即可将excel的文件名改为xls了。
1、在文件夹中新建一个excel表格,打开,以此按下【Atl】+【F11】,依次点击【插入】,【模块】。
2、在弹出的框中,将以下代码粘贴进去,点击【运行】,【运行子过程/用户窗体】
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _ (ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox "合并成功完成!"
errhandler:
'MsgBox Err.Description
'Resume errhandler
End Sub
3、选中想要合并的所有excel表格,点击【打开】,提示【合并成功完成】。
4、这样所有的excel表格就都汇总到一个excel中了。
1、随便选择一个sheet,例如sheet1,选中想要打印的数据/表格,【打印预览】调整好打印的区域。
2、在sheet1上单击鼠标右键,【选定全部工作表】,然后找到【填充】按钮,选择【组成工作表】
3、在弹出的框中选择【格式】,【确定】。这样就设置完成了,打印时选择【整个工作簿】
喜欢的朋友请转发,让更多的朋友共同学习~