怎么将多个Excel工作簿合并成一个新的工作簿

怎么将多个Excel工作簿合并成一个新的工作簿

空行前是将多个工作簿合并到一个工作簿，之后是将新生成的工作簿中的所有工作表合并到第一个工作表中。

****************************************

Sub 合并汇总()

Application.DisplayAlerts = False

Application.ScreenUpdating = False

FileToOpen_N = Application.GetOpenFilename("xls文件,*.xls", _

Title:="请选择要合并工作簿：", MultiSelect:=True)

Newbz = 0

On Error Resume Next

For Each FileToOpen In FileToOpen_N

If FileToOpen <> False Then

If Newbz = 0 Then

Booknum = Application.SheetsInNewWorkbook

Application.SheetsInNewWorkbook = 1

Workbooks.Add

Application.SheetsInNewWorkbook = Booknum

NewBookName =

Sheets(1).Name = "sheet_tmp"

Newbz = 1

End If

Set OpenBook = Workbooks.Open(FileToOpen)

For Each Xlsheet In OpenBook.Sheets

Xlsheet.Copy Before:=Workbooks(NewBookName).Sheets("sheet_tmp")

Next

OpenBook.Close SaveChanges:=False

End If

Next

Workbooks(NewBookName).Sheets("sheet_tmp").Delete

Application.ScreenUpdating = True

Application.DisplayAlerts = True

excel如何将一个工作簿中的多个工作表合并到一张工作表上

2012-05-05 22:34 匿名|分类：办公软件|浏览19392次

分享到：

2012-05-05 23:23 提问者采纳

打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去，然后上面有个运行运行子程序就可以了，代码如下，如果出现问题你可以尝试工具宏宏安全性里把那个降低为中或

者低再试试

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示" End Sub