excel如戾态菩痃何将某个工作表批量插入到多个工作簿（即多个excel文件）中若有许多个excel文件，即exce造婷用痃l工作簿，此时你需要在每个excel文件中加入一个工作表，且内容相同；那么你是一个一个打开，复制粘贴呢，还是使用便捷的方法呢答案肯定是后者了。
工具/原料
excel2013
方法/步骤
1、再把开头的问题实例化：如图，要将“神山百科”工作表插入到五个excel文件中（当然也可能遇到100个文件）。
2、且需要将“神山百科”加入到每个excel文件中第一个sheet表之前。如何使用便捷的方法呢？
3、我们先找个空表或者不是“神山百科”的表，先添加一个按钮。
4、点击开发工具---visualbasic，或者按快捷键ALT+F11，打开vba编辑器。
5、右键单击microsoftexcel对象，在弹出的对话框列表中选择插入--模块。
6、复制以下vb代码到右侧的编辑框中：Subjoinst()'将一个工作表批量加入到其遛襟粝颉他工作簿中Application.ScreenUp颊俄岿髭dating=False'关闭屏幕更新Application.DisplayAlerts=False'关闭提示DimfilenameAsString,swbAsWorkbook,twbAsWorkbook,fnAsString'定义变量filename=Dir(ThisWorkbook.Path&"\五座神山"&"\*.xlsx")'获得五座神山文件夹下的所有工作表的名字DoWhilefilename<>""'若工作簿名字不为空，执行循环体；Iffilename<>ThisWorkbook.NameThen'若工作薄名字和本工作簿名字不一致，执行以下语句；fn=ThisWorkbook.Path&"\五座神山\"&filename'设置fn为路径；Settwb=Workbooks.Open(fn)'打开五座神山文件下的工作簿；ThisWorkbook.Worksheets(1).Copybefore:=twb.Worksheets(1)'将工作表复制到打开的工作簿中，且放在之前；twb.CloseTrue'关闭工作簿EndIffilename=Dir'继续下一个工作簿LoopApplication.ScreenUpdating=True'开启屏幕更新Application.DisplayAlerts=True'开启提示EndSub
7、注释：屏幕语句不用变动；根据你表格的情况和位置，可以改动一下语句更改五座神山，获得麈亢刃饬你工作簿的名称。filename=Dir(T茑霁酌绡hisWorkbook.Path&"\五座神山"&"\*.xlsx")更改五座神山，获得你工作簿的路径。fn=ThisWorkbook.Path&"\五座神山\"&filename'设置fn为路径；worksheets(1)，即第一个工作表；可以根据你的模版和需要加入的位置更改为其他数字。ThisWorkbook.Worksheets(1).Copybefore:=twb.Worksheets(1)
8、关闭vba编辑器，将按钮和宏命令关联起来。关联的方法可以看我的另一篇经验贴：https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html
9、点击按钮，执行vb程序，打开所有的工作簿，可以看到，已经将“神山百科”批量加入到每个工作簿中了。
