[VBA ] 檢查工作表是否存在

[BanPeeBan (踢屁屁)]

各位板上的大大好

最近有個需求是要"檢查excel中是否有某個名稱的工作表存在"
找了一些資料 先是找到這篇 寫了版本一
https://tinyurl.com/y7sag5k5

------------------------------我是版本一------------------------------

Sub sheet_check_error()

    sheetname = "Sheet2"

    If Sheets(sheetname) Is Nothing Then
        MsgBox ("工作表:" & sheetname & "不存在，請查看是否有拼錯字")
    Else
        MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
        ActiveWorkbook.Sheets(sheetname).Activate
    End If

End Sub

----------------------------------------------------------------------





後來又找到這篇 抄出了版本二
https://tinyurl.com/y9w7pk6o

------------------------------我是版本二------------------------------

Function checkSheetName(sheetname)
'檢查活頁是否存在
    isfind = False
    For Each st In Sheets
        If st.Name = sheetname Then
            isfind = True
            Exit For
        End If
    Next
    checkSheetName = isfind
End Function

Sub sheet_check_correct()

    sheetname = "Sheet2"

    If checkSheetName(sheetname) = False Then
        MsgBox "工作表:" & sheetname & "不存在，請查看是否有拼錯字"
    Else
        MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
    End If

End Sub

----------------------------------------------------------------------





會寫兩個版本 代表版本一有問題@@
先附上上述兩巨集所在的excel截圖 只存在一個工作表
https://imgur.com/ToYUSDQ


然後附上版本一執行結果&error提示
https://imgur.com/kYFc85E
https://imgur.com/WvvfBB9


最後附上版本二執行結果
https://imgur.com/vwR0KQX





找了之前的程式 發現前輩的巨集中有與版本一一樣寫法 那個程式現在也可以跑
但是現在重寫忽然就不行了

想請問各位大大
版本一到底是錯在哪@@?

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.240.1.143
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1542895522.A.1A9.html
推 newacc: 在if判斷前加一句On Error Resume Next
→ newacc: 再來是要Dim ws As Worksheet: Set ws = Sheets(sheetname
→ newacc: )
→ newacc: 再來檢查If ws Is Nothing Then
→ newacc: 因為呼叫一個不存在的工作表會跳錯誤，所以先設定遇到錯誤
→ newacc: 繼續執行下一行，再把該物件set給一個變數，此時如果物件
→ newacc: 存在，變數便是那個物件，若不存在，則變數是nothing
成功了！感謝大大
另外再請問
On Error Resume Next
是不是可以套用在各種類似的錯誤中？
覺得vba最大的困擾就是找不到error在哪@@
※ 編輯: BanPeeBan (180.217.211.34), 11/23/2018 12:37:25
→ newacc: 不完全是，這個只是叫程式忽略錯誤，沒有經過errorHandler
→ newacc: 處理，難保後續程式不會出問題
→ newacc: 以我上述推文為例，我認為這是寫在程式本體裡的error
→ newacc: handler，如果沒有if那行，之後在使用ws的性質就可能會再
→ newacc: 次出錯
了解了 感謝大大！
※ 編輯: BanPeeBan (180.217.211.34), 11/25/2018 14:24:37