下圖所示：一個文件夾下面有多個excel工作薄，每個工作薄文件下面有不固定張數的工作表。比如有的文件只有一張工作，有的文件是多張工作表。
現在的問題，如何將這些多個文件實現合并工作表。將這些所有工作表全部合并到同一張工作表。
一般的做法，通過“移動或復制”實現合并工作表。要高效，可以使用VBA代碼來實現合并工作表。
合并工作表操作步驟：
新建一個excel文件，按ALT+F11，打開VBE編輯器，復制下面的代碼，然后運行，選擇文件夾下面的所有excel文件，執行合并工作表。
Sub合并工作簿()
DimFilesToOpen,wbAsWorkbook,shtAsWorksheet
DimxAsInteger
OnErrorGoToErrHandler
Application.ScreenUpdating=False
FilesToOpen=Application.GetOpenFilename_
(FileFilter:="MicrosoftExcelFiles(*.xls),*.xls",_
MultiSelect:=True,Title:="FilestoMerge")
IfTypeName(FilesToOpen)="Boolean"Then
MsgBox"NoFileswereselected"
GoToExitHandler
EndIf
x=1
Whilex<=UBound(FilesToOpen)
IfFilesToOpen(x)<>ThisWorkbook.FullNameThen
Setwb=Workbooks.Open(Filename:=FilesToOpen(x))
ForEachshtInwb.Sheets
sht.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
wb.Close
EndIf
x=x+1
Wend
ExitHandler:
Application.ScreenUpdating=True
ExitSub
ErrHandler:
MsgBoxErr.Description
ResumeExitHandler
EndSub
說明：上面代碼是合并xlsx文件，如果是合并excel2007的文件，需要將：FileFilter:="MicrosoftExcelFiles(*.xls),*.xls"，xls改為.xlsx。
