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

執行結果：（存在時）

執行結果：（不存在時）

實例附件下載地址