怎样使用VBA判断工作簿是否包含指定的工作表？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 查找表名()

 

    Dim sht As Worksheet

 

    For Each sht In ThisWorkbook.Sheets

 

      If sht.Name="瑞士军刀" Then

 

      Worksheets("瑞士军刀").Select

 

      Exit Sub

 

      End If

 

    Next sht

 

      MsgBox "暂无“瑞士军刀”的资料！", 64, "提示"

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将弹出“暂无‘瑞士军刀’的资料！”的提示；对新建工作表取名为“瑞士军刀”后执行本程序，则直接定位于该工作表。