如何判断两个表是否存在？

pnwzj

求vba方式判断工作薄中是否存在表1、表2两个工作表，根据存在情况执行下一步操作。

两个表都在 msgbox： 都存在
表1在，msgbox：表1存在
表2在，msgbox：表2存在
两个表都不存在：什么也不做。

多谢。

一把小刀闯天下

Option Explicit

Sub test()
  Dim mark, cnt, s, sht, i
  mark = Split("Sheet1,Sheet2", ",")
  For Each sht In Sheets
    For i = 0 To UBound(mark)
      If sht.Name = mark(i) Then
        cnt = cnt + 1
        s = s & "," & sht.Name
      End If
    Next
  Next
  Select Case cnt
  Case 0: s = "都不存在"
  Case 1: s = cnt & ":" & Mid(s, 2)
  Case 2: s = cnt & ":" & Mid(s, 2)
  Case Else
  End Select
  Debug.Print s
End Sub

maditate

Sub test()
On Error Resume Next
  mySH1 = Sheets("Sheet1").Cells(1, 1)
  If Error <> Empty Then
     s = 1
  End If
   Err = Empty
     mySH1 = Sheets("Sheet2").Cells(1, 1)
  If Error <> Empty Then
     s = s + 2
  End If
   
  If s = 0 Then
     MsgBox "两表都存在"
  ElseIf s = 1 Then
    MsgBox "表1不存在"
  ElseIf s = 2 Then
    MsgBox "表2不存在"
  ElseIf s = 3 Then
    MsgBox "两表都不存在"
  End If
End Sub

雪之花

学习学习，模仿修改

limonet

用catalog或openschema，可以不打开文件判断。