如何判断工作簿中是否存在某个工作表

最新推荐文章于 2024-02-26 11:45:33 发布

taller_2000

最新推荐文章于 2024-02-26 11:45:33 发布

阅读量1.4w

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA Excel 工作表自定义函数文章标签： Excel 工作表存在自定义函数

本文链接：https://blog.youkuaiyun.com/taller_2000/article/details/80210550

VBA 同时被 3 个专栏收录

325 篇文章

订阅专栏

Excel

165 篇文章

订阅专栏

工作表

40 篇文章

订阅专栏

本文介绍了一个简单的VBA自定义函数，用于判断指定名称的工作表是否存在于当前或指定的工作簿中。通过该函数可以避免因工作表不存在而引发的运行时错误。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

开发VBA代码时，经常需要操作工作表对象，但是这个是否存在呢？各种奇葩的用户都会有，所以在代码中一定要先判断然后再进行后续操作，非常可惜的是VBA中并没有提供直接的方法来完成这个判断，只有写一个自定义函数了。

Function udfSheetExists(strShtName As String, Optional strWbName As String) As Boolean
    On Error Resume Next
    If strWbName = "" Then
        Set objWb = ActiveWorkbook
    Else
        Set objWb = Workbooks(strWbName)
    End If
    udfSheetExists = CBool(Not objWb.Sheets(strShtName) Is Nothing)
    On Error GoTo 0
End Function

代码非常简单，函数有两个参数：

参数名称	含义	说明
strShtName	指定工作表名称	必选
strWbName	指定工作簿名称	可选

调用函数时，如果没有提供参数strWbName ，将使用活动工作簿做为目标工作簿。objWb.Sheets(strShtName) Is Nothing判断工作表是否存在，既然这句代码就可以判断工作表是否存在，为啥还要写这么多代码的一个自定义函数呢？如果工作表不存在，那么objWb.Sheets(strShtName)将产生运行时错误9（下标越界），这也是代码中需要使用On Error Resume Next忽略系统错误的原因。

演示代码如下：

Sub Demo()
    Debug.Print udfSheetExists("Sheet1")
    Debug.Print udfSheetExists("Sheet1", "MyData.xlsx")
End Sub

Debug.Print udfSheetExists("Sheet1")省略第二个参数，相当于检查活动工作簿中是否存在名称为Sheet1的工作表。
自定义函数中，并没有检查名称为strWbName的工作簿是否存在，有兴趣的读者可以自行补充。