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

看板Visual_Basic作者BanPeeBan (踢屁屁)時間6年前 (2018/11/22 22:05)推噓1(1推 0噓 11→)

留言12則, 1人參與討論串1/1

各位板上的大大好最近有個需求是要"檢查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

11/22 22:16, 6年前 , 1^F

11/22 22:16, 1^F

→

newacc

11/22 22:18, 6年前 , 2^F

11/22 22:18, 2^F

→

newacc

11/22 22:18, 6年前 , 3^F

11/22 22:18, 3^F