2019年1月24日
工作表是否已存在函数
摘要： 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 ... 阅读全文
posted @ 2019-01-24 08:23 易塞尔工作室 阅读(277) 评论(0) 推荐(0)