Question

Excel VBA判断工作表是否存在请教

If Not Sheets("abc") Is Nothing Then
MsgBox "存在"
End If
我用以上方法判断工作表是否存在，工作表存在时正常，不存在时就出错了，如果不用错误跳转语句的话该如何判断才能在工作表不存在时不出错呢
对了，忘了说了，不用循环的情况下

Answer 1

1、首先我们在工作表中，点击菜单栏开发工具，在其中的工具栏里，点击visual basic,然后进入VBA界面，如下图。

2、然后我们在VBA界面里，点击菜单栏插入，在其中的菜单中，点击模块，具体操作方法如下图。

3、我们然后再在代码的编辑窗口中，输入代码再然后点击VBA窗口下工具栏中的运行按钮，方法如下图。

4、最后我们点击VBA窗口下工具栏中的运行按钮，接下来会弹出存在或不存在的对话框，这就是具体的操作方法。

Answer 2

如果不用错误跳转语句，只能遍历所有工作表，比对表名，代码如下：

Sub 判别工作表是否存在()
    Dim i As Integer
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "abc" Then
            MsgBox "工作表abc已存在！"
            Exit For
        End If
    Next
End Sub

Answer 3

Sub test()
Dim sht As Worksheet
Dim sht_Exist  As Boolean
sht_Exist = False
For Each sht In ThisWorkbook.Worksheets
    If sht.Name = "指定工作表名称" Then sht_Exist = True: Exit For
Next sht
MsgBox ("工作表" & IIf(sht_Exist, "", "不") & "存在")
End Sub

Answer 4

1、不是所有错误都能起作用。
2、用循环检测是否已有“汇总”表，没有则添加：
for i=1 to sheets.count
if sheets(i).name="汇总" then exit sub
next
sheets.add……

Answer 5

On Error Resume Next
If Not Sheets("abc") Is Nothing Then
If Err.Number <> 9 Then MsgBox "存在"
Err.Clear
End If

追问

汗，错误跳转语句我知道的，我是想知道不用错误跳转语句和不循环的情况下能否实现

追答

人工判断吧什么也不用

追问

看来你也不会

追答

我觉得没有必要这么纠结