1、需求实例化：如图，需要将“五座神山”文件夹下的5个表格（实际可能遇到100个文件）中的第一个表格“神山百科”删除掉。
2、新建一个excel文件，excel2010版本以上的新建一个xlsm文件，可以支持宏命令运行；
3、打开新建的excel文件，在空表处新建一个按钮。点开发工具---插入按钮。
4、点开发工具---visual basic，或者操作快捷键ALT+F11，打开vba编辑器。
5、右键单击microsoft excel 对象，在弹出的对话框列表中选择插入--模块。
6、复制以下vb代码到右侧的编辑框中：Sub delst()'批量删除多个excel内指定的工作表Dim filename As String, twb As Workbook '定义变量Application.ScreenUpdating = False '关闭屏幕更新Application.DisplayAlerts = False '不显示需要确定删除的警告信息filename = Dir(ThisWorkbook.Path & "\五座神山\" & "*.xlsx")'获得五座神山文件下的所有工作表的名字Do While filename <> "" '若工作簿名字不为空，执行循环体； fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径； Set twb = Workbooks.Open(fn) '打开五座神山文件下的工作簿； twb.Worksheets(1).Delete '删除第一个工作表 twb.Close True '保存并关闭工作簿 filename = Dir '继续下一个工作簿LoopApplication.DisplayAlerts = True '恢复提示警告信息Application.DisplayAlerts = True '开启提示End Sub
7、注释：根据你表格的情况和位置，可以改动一下语句更改五座神山，获得你工作簿的名称。filename = Dir(ThisWorkbook.Path & "\五座神山" & "\*.xlsx")更改五座神山，获得你工作簿的路径。fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径；worksheets(1)，即需要删除的表格，这里是第一个工作表；可以根据你的模版和需要加入的位置更改为其他数字。twb.Worksheets(1).delete
8、关闭VB编辑器，将按钮和宏命令关联起来。关联的方法如下：https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html
9、点击删除按钮，执行vb程序，打开所有的工作簿，可以看到，已经将“神山百科”工作表批量删除。
