VBA检查一个sheet是否存在的函数

原创文章,欢迎转载:http://miao.blog/article/vba-sheet-exists

' 检查sheet是否存在
Public Function sheetExists(xBook As Workbook, sheet_name As String) As Boolean
    On Error GoTo ERR_HANDLING

    Dim xSheet As Worksheet
    Set xSheet = xBook.Sheets(sheet_name)
    sheetExists = True

    Exit Function
ERR_HANDLING:
    sheetExists = False
End Function
推荐阅读
VBA中进行copy和paste的时候,无规律的出现 “类Worksheet的Paste方法无效”错误 怀疑是电脑太快,copy操作还没有完成,就直接运行paste,导致paste出错。 所以在copy操作后,sleep一小段时间,结果真的解决了问题。
VBA(64位)生成UTF-8文件的代码
VBA发送GET、POST请求的方法
评论