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

2024-11-22 22:53:34

推荐回答（5个）

回答（1）：

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

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

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

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

回答（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

回答（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

回答（4）：

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

回答（5）：

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