excel如何将某个工作表批量插入到多个工作簿中

1、再把开头的问题实例化：如图，要将“神山百科”工作表插入到五个excel文件中（当然也可能遇到100个文件）。

2、且需要将“神山百科”加入到每个excel文件中第一个sheet表之前。如何使用便捷的方法呢？

3、我们先找个空表或者不是“神山百科”的表，先添加一个按钮。

4、点击开发工具---visual basic，或者按快捷键ALT+F11，打开vba编辑器。

5、右键单击microsoft excel 对象，在弹出的对话框列表中选择插入--模块。

6、复制以下vb代码到右侧的编辑框中：Sub joinst()'将一个工作表批量加入到其遛襟粝颉他工作簿中Application.ScreenUp颊俄岿髭dating = False '关闭屏幕更新Application.DisplayAlerts = False '关闭提示Dim filename As String, swb As Workbook, twb As Workbook, fn As String'定义变量filename = Dir(ThisWorkbook.Path & "\五座神山" & "\*.xlsx")'获得五座神山文件夹下的所有工作表的名字Do While filename <> "" '若工作簿名字不为空，执行循环体； If filename <> ThisWorkbook.Name Then '若工作薄名字和本工作簿名字不一致，执行以下语句； fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径； Set twb = Workbooks.Open(fn) '打开五座神山文件下的工作簿； ThisWorkbook.Worksheets(1).Copy before:=twb.Worksheets(1) '将工作表复制到打开的工作簿中，且放在之前； twb.Close True '关闭工作簿 End If filename = Dir '继续下一个工作簿LoopApplication.ScreenUpdating = True '开启屏幕更新Application.DisplayAlerts = True '开启提示End Sub

7、注释：屏幕语句不用变动；根据你表格的情况和位置，可以改动一下语句更改五座神山，获得你工作簿的名称。filename = Dir(T茑霁酌绡hisWorkbook.Path & "\五座神山" & "\*.xlsx")更改五座神山，获得你工作簿的路径。fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径；worksheets(1)，即第一个工作表；可以根据你的模版和需要加入的位置更改为其他数字。ThisWorkbook.Worksheets(1).Copy before:=twb.Worksheets(1)

8、关闭vba编辑器，将按钮和宏命令关联起来。关联的方法可以看我的另一篇经验贴：https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html

9、点击按钮，执行vb程序，打开所有的工作簿，可以看到，已经将“神山百科”批量加入到每个工作簿中了。