一键合体将多个文件合并为一个文件

　　工作中
　　经常需将几个Excel文件中的工作表
　　合并到一个Excel文件中
　　效果如下
　　小窍门：将屏幕横放可放大图片！
　　新建合并工作簿的宏命令
　　1宏在哪里？
　　单击工具栏上的开发工具标签
　　点击宏
　　如下图所示。
　　2给宏起名字
　　表格中出现宏对话框
　　宏名下方输入框内输入宏名字：hebing
　　点击创建
　　如下图所示。
　　3在VBA编辑窗口编辑代码
　　Excel将调出VBA窗口
　　在编辑窗口可以看到如下代码
　　Subhebing（）
　　EndSub
　　这段代码是系统根据宏名hebing自动生成。
　　如下图所示。
　　在编辑窗口输入如下代码
　　Subhebing（）
　　DimFileOpen
　　DimXAsInteger
　　Application。ScreenUpdatingFalse
　　FileOpenApplication。GetOpenFilename（FileFilter：MicrosoftExcel（。。xlsx），。。xlsx，MultiSelect：True，Title：hebing）
　　X1
　　WhileXUBound（FileOpen）
　　Workbooks。OpenFilename：FileOpen（X）
　　Sheets（）。MoveAfter：ThisWorkbook。Sheets（ThisWorkbook。Sheets。Count）
　　XX1
　　Wend
　　ExitHandler：Application。ScreenUpdatingTrue
　　ExitSub
　　ErrHadler：MsgBoxErr。Description
　　EndSub
　　如下图所示。
　　VBA代码编辑完成后关闭VBA窗口，至此合并工作簿的宏创建完毕。
　　4查看刚刚创建的宏hebing
　　单击工具栏上的开发工具标签
　　点击宏，可以从宏对话框中看到hebing宏
　　如下图所示。
　　为新建的hebing宏指定一个按钮
　　5如何新建按钮
　　单击工具栏上的开发工具标签
　　点击插入
　　从下拉菜单中选择按钮（窗体控件）。如下图所示。
　　在工作表中点击需创建按钮的位置，按住鼠标并拖动鼠标改变按钮大小
　　松开鼠标时，会弹出指定宏对话框
　　选择刚刚新建的hebing宏，点击确定
　　如下图所示。
　　按钮1就是新建的hebing宏指定的按钮，如下图所示。
　　6修改按钮的名字
　　在按钮上单击鼠标右键
　　从弹出的菜单中选择编辑文字，如下图所示。
　　将按钮名字按钮1改为合并，如下图所示。
　　测试合并按钮
　　7使用合并按钮合并工作簿
　　点击合并按钮，如下图所示。
　　Excel弹出hebing对话框
　　选定1月和2月营销快报
　　点击打开，如下图所示。
　　1月、2月营销快报工作簿已经合并至一张工作簿中，如下图所示。
　　8使用合并按钮继续合并其他工作簿
　　点击合并按钮，如下图所示。
　　Excel弹出hebing对话框
　　选定3月营销快报
　　点击打开，如下图所示。
　　3月营销快报工作簿已经添加合并至工作簿中，如下图所示，工作簿中包含1月、2月、3月营销快报。
　　9获取文件
　　需要一键合并工作簿Excel文件的朋友，可以：
　　给我留言，并留下您的电子邮箱地址。
　　或者在公众号主页面发送下载，获取下载链接及密码！
　　温馨提示：运行宏时，应开启宏。
　　更多文章
　　Excel瘦身秘籍！
　　Excel强大的翻译功能，不用太可惜了！
　　Excel做统计分析，这两个方法必须会！
　　常用Excel快捷键，工作必备技巧
　　PS：您也可以留言给我，我会及时给您答复！