想要将几百个单独的excel表汇总到一个excel表中,首先需要将所有excel表格的后缀名全部改为.xls。通常的excel表格的后缀名有.xls和.xlsx两种。最后再把所有的sheet中需要打印的区域批量设置成一样的格式。最后打印即可。 一、更改excel表格后缀名1、将.xlsx后缀名的表格全部放到一个新建文件夹中,在文件夹中新建一个.txt文件。 2、打开txt文件,并输入【ren*.bat*.xls】,保存,关闭。将txt文件的后缀名改为bat,然后运行即可将excel的文件名改为xls了。 二、汇总excel表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中了。 三、将所有sheet设置成一样的格式1、随便选择一个sheet,例如sheet1,选中想要打印的数据/表格,【打印预览】调整好打印的区域。 2、在sheet1上单击鼠标右键,【选定全部工作表】,然后找到【填充】按钮,选择【组成工作表】 3、在弹出的框中选择【格式】,【确定】。这样就设置完成了,打印时选择【整个工作簿】 喜欢的朋友请转发,让更多的朋友共同学习~ |
|
来自: 东东85nuh7gdm8 > 《2、Word 及EXCEI》