excel表格_excel函数公式大全_execl从入门到精通
EXCEL工作簿中工作表的添加及删除2024-04-11 23:49:08
大家好，我很早以前开始学习利用VBA,至今已有20多年了。开发过大小不同的VBA程序程序已经数不清了。我的平台，以传递我多年实际经验为宗旨，授人以渔，交给大家真正的VBA知识。如果大家对VBA感兴趣，认为VBA可以给自己的实际工作带来切实的帮助，最好系统学习我的教程，成为我的学员，汲取我的经验。由于本人年龄大了，而且学员众多，目前只能做到满足对学员答疑，辅导，对非学员朋友只能看我自己的时间是否允许，还望非学员朋友见谅。
今日推出常用“积木”过程案例分享第321期，内容是:EXCEL工作簿中工作表的添加及删除。VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我的对VBA的定义，我推出的专辑就是我多年实际利用VBA的经验记录，都来源于我多年的实践经验。目前我已经将所有代码修正为适合64位和32位两种系统，大家要把这些代码块作为一块块的积木对待，平时要多积累，建立自己的“积木库”，用时拿来可以修正、组合。这就是我的“积木编程”的思想。这些讲解就是我推出的“积木”方案，希望大家加以利用。最近代码多是出自我的第一套教程”VBA代码解决方案”。这些是非常实用的问题解决方案。
======================= ① ========================
Sub mynz_20()
Dim sh As Worksheet
For Each Sh In Worksheets
If Sh.Name = "MY" Then
MsgBox "工作簿中已有""MY""工作表,将删除原存在的工作表"
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
EXIT FOR
End If
Next
With Worksheets
Set sh = .Add(after:=Worksheets(.Count))
sh.Name = "MY"
End With
End Sub②=========================②========================②
代码解读：
a) For Each…. Next…. 将遍历工作表，检查原工作表中是否含有“MY”的工作表。
b) MsgBox "工作簿中已有""MY""工作表,将删除原存在的工作表" 如果有“MY”的工作表，首先要弹出一个对话框，告知有这个工作表，讲删除。
c) Application.DisplayAlerts = False 将关闭弹出的警告对话框。
d) Application.DisplayAlerts = True 将打开弹出的警告对话框。
e) sh.Delete 删除原有的工作表。
f) Set sh = .Add(after:=Worksheets(.Count))
sh.Name = "MY"
添加一个新的工作表，工作表的名称为"MY"
各套教程的介绍：
第1套：VBA代码解决方案
第2套：VBA数据库解决方案
第3套：VBA数组与字典解决方案
第4套：VBA代码解决方案之视频
第5套：VBA中类的解读和利用
第6套：VBA信息获取与处理
上述教程的学习顺序：1→3→2→6→5或者4→3→2→6→5。如需要，可以WeCh: VBA6337或者NZ9668
分享成果，随喜正能量
标签: 如何在Excel中删除工作簿