合并多个工作簿为一个工作簿和拆分工作簿为多个工作簿
合并多个工作簿为一个工作簿1、右键查看代码，插入以下代码Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls"
