怎样将几百个单独的excel表汇总到一个excel表中呢?



想要将几百个单独的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、在弹出的框中选择【格式】,【确定】。这样就设置完成了,打印时选择【整个工作簿】

喜欢的朋友请转发,让更多的朋友共同学习~


0