1、新建一個工作薄，將其命名為你合併後的名字。2、開啟此工作薄。3、在其下任一個工作表標籤上點選右鍵，選擇“檢視程式碼”。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個工作薄。8、等待。。。。ok！
1、新建一個工作薄，將其命名為你合併後的名字。2、開啟此工作薄。3、在其下任一個工作表標籤上點選右鍵，選擇“檢視程式碼”。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個工作薄。8、等待。。。。ok！