您现在的位置: 首页 > 动态 > 文章正文动态
excel多个工作簿合并(如何将多个2010版的excel工作簿合并为一个工作簿)
发布时间:2022-10-24 05:21 点击:次
1、新建一个工作薄,将其命名为你合并后的名字。2、打开此工作薄。3、在其下任一个工作表标签上点击右键,选择“查看代码”。4、在打开的VBA编辑窗口中粘贴以下代码:Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub5、关闭VBA编辑窗口。6、在excel中,工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。7、在打开的对话窗口中,选择你要合并的300个工作薄。8、等待。。。。ok!