使用方法：
1、新建一個工作薄，將其命名為你合併後的名字。
2、開啟此工作薄。
4、在開啟的VBA編輯視窗中貼上以下程式碼：Sub 工作薄間工作表合併()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xls),*.xls", MultiSelect:=True, Title:="合併工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub5、關閉VBA編輯視窗。6、在excel中，工具---宏---宏,選“工作薄間工作表合併”,然後“執行”。7、在開啟的對話視窗中，選擇你要合併的300個工作薄。
使用方法：
1、新建一個工作薄，將其命名為你合併後的名字。
2、開啟此工作薄。
4、在開啟的VBA編輯視窗中貼上以下程式碼：Sub 工作薄間工作表合併()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xls),*.xls", MultiSelect:=True, Title:="合併工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub5、關閉VBA編輯視窗。6、在excel中，工具---宏---宏,選“工作薄間工作表合併”,然後“執行”。7、在開啟的對話視窗中，選擇你要合併的300個工作薄。