下载此文档

多个工作簿合并到一个工作簿.doc

文档分类：办公文档 | 页数：约1页举报非法文档有奖

1/1

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/1 下载此文档

文档列表 文档介绍

新建一个工作薄,将其命名为你合并后的名字打开此工作薄工具—控件—查看代码,调出VBA编辑界面在打开的VBA编辑窗口中粘贴以下代码:(根据需要修改xls或者xlsx)Sub多表多文件合并为多表一文件()=FalseFileArray=(FileFilter:="MicrosoftExcel文件(*.xls),*.xls",MultiSelect:=True,Title:="合并工作薄")X=1WhileX<=UBound(FileArray):=FileArray(X)Sheets().MoveAfter:=()X=X+1WendExitHandler:=TrueExitSuberrhadler: ,选择“工具--宏“,调出宏界面,选“多表多文件合并为多表一文件”,然后“执行”。选择“运行—运行宏“或直接按F5调出宏界面。

多个工作簿合并到一个工作簿来自淘豆网www.taodocs.com转载请标明出处.