通过VBA将多个格式相同的Excel文件合并成一个文件，带文件处理

• 打开Excel文件，启用“开发人员工具”

• 启用宏和VBA功能

• 添加3个模块

代码如下：

Sub 工作薄间工作表合并()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
FileToOpen_N = Application.GetOpenFilename("xlsx文件,*.xlsx", 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.SheetInNewWorkbook = 1
   Workbooks.Add
   Application.SheetsInNewWorkbook = Booknum
   NewBookName = ActiveWorkbook.Name
   Sheets(1).Name = "sheet_tmp"
   Newbz = 1
  End If
  Set OpenBook = Workbooks.Open(FileToOpen)