excel如何合并不同類型工作表

excel如何合并不同類型工作表

下圖所示：一個文件夾下面有多個excel工作薄，每個工作薄文件下面有不固定張數(shù)的工作表。比如有的文件只有一張工作，有的文件是多張工作表。　　現(xiàn)在的問題，如何將這些多個文件實現(xiàn)合并工作表。將這些所有工作表全部合并到同一張工作表。

一般的做法，通過“移動或復制”實現(xiàn)合并工作表。要高效，可以使用VBA代碼來實現(xiàn)合并工作表。　　合并工作表操作步驟：　　新建一個excel文件，按ALT+F11，打開VBE編輯器，復制下面的代碼，然后運行，選擇文件夾下面的所有excel文件，執(zhí)行合并工作表。

Sub合并工作簿()DimFilesToOpen,wbAsWorkbook,shtAsWorksheetDimxAsIntegerOnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpen=Application.GetOpenFilename_(FileFilter:="MicrosoftExcelFiles(*.xls),*.xls",_MultiSelect:=True,Title:="FilestoMerge")IfTypeName(FilesToOpen)="Boolean"ThenMsgBox"NoFileswereselected"GoToExitHandlerEndIfx=1Whilex<=UBound(FilesToOpen)IfFilesToOpen(x)<>ThisWorkbook.FullNameThenSetwb=Workbooks.Open(Filename:=FilesToOpen(x))ForEachshtInwb.Sheetssht.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)Nextwb.CloseEndIfx=x+1WendExitHandler:Application.ScreenUpdating=TrueExitSubErrHandler:MsgBoxErr.DescriptionResumeExitHandlerEndSub　　說明：上面代碼是合并xlsx文件，如果是合并excel2007的文件，需要將：FileFilter:="MicrosoftExcelFiles(*.xls),*.xls"，xls改為.xlsx。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。