工作表是否已存在函数 

1 Function SheetIsExist(shtName) As Boolean
2     Dim ws As Worksheet
3     On Error Resume Next
4     Set ws = Worksheets("" & shtName)
5     SheetIsExist = (Err = 0)
6     Err.Clear: On Error GoTo 0
7 End Function

 

posted @ 2019-01-24 08:23  易塞尔工作室  阅读(250)  评论(0)  编辑  收藏  举报