多个excle数据合并到一个excle中

Sub合并工作薄()DimFilesToOpenDimxAsIntegerOnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpen=Application.GetOpenFilename_(FileFilter:="MicroSoftExcel文件(*.xls),*.xls",_MultiSelect:=True,Title:="要合并的文件")IfTypeName(FilesToOpen)="Boolean"