多个Excel表合并形成一个Excel中的多sheet工作簿

多个Excel表合并形成一个Excel中的多sheet工作簿

(2013-03-21 11:05:24)

转载▼

分类：excel使用技巧

新建一个excel表（把所有表最终要导入的表）。在该表中按ALT+F11打开宏，插入------ 模块

在打开的窗口中输入：

Sub CombineWorkbooks()

Dim FilesToOpen

Dim x As Integer

On Error GoTo ErrHandler

Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _

(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _

MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "Boolean" Then

MsgBox "没有选中文件"

GoTo ExitHandler

End If

x = 1

While x <= UBound(FilesToOpen)

Workbooks.Open Filename:=FilesToOpen(x)

Sheets().Move after:=ThisWorkbook.Sheets _

(ThisWorkbook.Sheets.Count)

x = x + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

ErrHandler:

MsgBox Err.Description Resume ExitHandler

End Sub

按F5运行宏。