excel如何将批量删除多个文件（即工作簿）中指定的工作表呢？若有许多个excel文件，即excel工作簿，此时你需要将每个excel文件中的一个指定的工作表删除，这个工作表所处的位置相同，即都是每个excel文件中第n个工作表，那么你是一个一个打开文件去删除，还是想用便捷的方法呢？工具/原料moreexcel2013方法/步骤1/9分步阅读

需求实例化：

如图，需要将“五座神山”文件夹下的5个表格（实际可能遇到100个文件）中的第一个表格“神山百科”删除掉。

2/9

新建一个excel文件，excel2010版本以上的新建一个xlsm文件，可以支持宏命令运行；

3/9

打开新建的excel文件，在空表处新建一个按钮。点开发工具---插入按钮。

4/9

点开发工具---visual basic，或者操作快捷键ALT+F11，打开vba编辑器。

5/9

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

6/9

复制以下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 继续下一个工作簿

Loop

Application.DisplayAlerts = True 恢复提示警告信息

Application.DisplayAlerts = True 开启提示

End Sub

7/9

注释：

根据你表格的情况和位置，可以改动一下语句

更改五座神山，获得你工作簿的名称。

filename = Dir(ThisWorkbook.Path \五座神山 \*.xlsx)

更改五座神山，获得你工作簿的路径。

fn = ThisWorkbook.Path \五座神山\ filename 设置fn为路径；

worksheets(1)，即需要删除的表格，这里是第一个工作表；

可以根据你的模版和需要加入的位置更改为其他数字。

twb.Worksheets(1).delete

8/9

关闭VB编辑器，将按钮和宏命令关联起来。

关联的方法如下：

https://jingyan.baidu.com/article/574c521951bc466c8c9dc16f.html

9/9

点击删除按钮，执行vb程序，打开所有的工作簿，可以看到，已经将“神山百科”工作表批量删除。

注意事项

参数可以进行改变

EXCELEXCEL文件工作簿批量删除SHEET工作表