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工具发布后,每次修改都需要通知大家更新,本问的代码,实现了打开工具自动获取最新版本,不更新的话自动关闭工具,这样就能保证工具更新的即时性和强制性。
VBA中进行copy和paste的时候,无规律的出现 “类Worksheet的Paste方法无效”错误 怀疑是电脑太快,copy操作还没有完成,就直接运行paste,导致paste出错。 所以在copy操作后,sleep一小段时间,结果真的解决了问题。
评论