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()    '获取第一个工作簿

 count = wk.Worksheets.count '获取工作表数目

 flag = False

 For i =  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