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

执行结果：（存在时）

执行结果：（不存在时）

实例附件下载地址