excel vba动态删除工作表

在excel工作簿中，删除工作表很简单，只需要右键-删除即可。
1510131546146566.png (20.98 KB, 下载次数: 0, 售价: 2 金钱)

2022-4-21 20:36 上传

点击文件名下载附件
1510131546146566.png

但是有时我们希望通过动态输入具体的工作表名，删除该工作表。如下代码：Subvba删除工作表()
DimwsAsWorksheet
DimstrAsString
str=Application.InputBox("输入需要删除的工作表：","删除工作表","sheet1")
OnErrorGoToerr
Setws=Worksheets(str)
Application.DisplayAlerts=False
ws.Delete
Application.DisplayAlerts=True
ExitSub
err:
MsgBox"您删除的工作表不存在！"
EndSub
运行代码，输入工作表名即可删除工作表，如果工作表不存在，则提示错误！
1510131756756455.png (8.29 KB, 下载次数: 0, 售价: 4 金钱)

2022-4-21 20:36 上传

点击文件名下载附件
1510131756756455.png

1510131776780983.png (5.78 KB, 下载次数: 0, 售价: 4 金钱)

2022-4-21 20:36 上传

点击文件名下载附件
1510131776780983.png