VBA验证工作表是否存在

使用VBA验证工作表是否存在

=============================================================

代码区域

=============================================================

Sub 判断工作表是否存在()
Dim wk As Workbook
Dim wt As Worksheet
Dim worksheetname As String
Dim i As Integer
Dim count As Integer
Dim flag As Boolean
worksheetname = "产品表" '定义要查找的工作表名称
Set wk = Workbooks(1)    '获取第一个工作簿
count = wk.Worksheets.count '获取工作表数目
flag = False
For i = 1 To count        '顺序查找工作表名
Set wt = wk.Worksheets(i)
If wt.Name = worksheetname Then '判断工作表名是否相同
flag = True
Exit For
End If
Next
If flag Then
MsgBox "工作表集合中存在" & worksheetname, vbOKOnly, "判定工作表是否存在"
Else
MsgBox "工作表集合中不存在" & worksheetname, vbCritical, "判定工作表是否存在"
End If
Set wk = Nothing '释放内存
Set wt = Nothing
End Sub

执行结果：（存在时）



执行结果：（不存在时）



实例附件下载地址