使用方法：

1、新建一個工作薄，將其命名為你合併後的名字。

2、開啟此工作薄。

4、在開啟的VBA編輯視窗中貼上以下程式碼： Sub 工作薄間工作表合併() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xls),*.xls", MultiSelect:=True, Title:="合併工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(X) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub errhadler: MsgBox Err.Description End Sub

5、關閉VBA編輯視窗。

6、在excel中，工具---宏---宏,選“工作薄間工作表合併”,然後“執行”。

7、在開啟的對話視窗中，選擇你要合併的300個工作薄。