bineWorkbooks()=FalseFilesToOpen=(FileFilter:="MicroSoftExcel文件(*.xls),*.xls",MultiSelect:=True,Title:="要合并的文件")IfTypeName(FilesToOpen)="Boolean"thenMsgBox"没有选中文件"GotoExitHandlerendifx=1Whilex<=UBound(filestoopen):=filestoopen(x)Sheets().MoveAfter:=()x=x+1WendExitHandler:=TrueExitSubErrHandler:
EXCEL合并工作表宏代码 来自淘豆网www.taodocs.com转载请标明出处.