EXCEL合并工作表宏代码范本

Sub Combin eWorkbooksD imFilesToOpen Dimx AsInteger OnErrorGoToEr rHandlerApp1ication.S cre enil pd at i ng=F aIseFilesToOpen=Appli cati on Get0p enFilenameF ileF iIte r=MicroSo ft Exc e二”要合并的文件”文件*tiSele ct=T rue,Title1x1s,*o xls”,Mu1I fTyT oO p en=B o o Iea nthenp eName File”没有选中文件”M sgBoxGotoE xi tHa nd leren difx=1W hile x=UB ou nfiles tf ilesto op enWor kb ooks.Openfil eName:=ooT hisWorpe nxSh ee ts.Move CA代kboo k.Sh ee tsT hisWorkbook Sh eets.o erountxWendExi tHan dApplicationoSc renll pd ati ng=TrueExi tSubErr HandleMsgBo xEr r.D escri ptionResume Ex itHandlerEn dSu b。