作者BanPeeBan (踢屁屁)
看板Visual_Basic
标题[VBA ] 检查工作表是否存在
时间Thu Nov 22 22:05:18 2018
各位板上的大大好
最近有个需求是要"检查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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1542895522.A.1A9.html
1F：推 newacc: 在if判断前加一句On Error Resume Next11/22 22:16
2F：→ newacc: 再来是要Dim ws As Worksheet: Set ws = Sheets(sheetname11/22 22:18
3F：→ newacc: )11/22 22:18
4F：→ newacc: 再来检查If ws Is Nothing Then11/22 22:19
5F：→ newacc: 因为呼叫一个不存在的工作表会跳错误，所以先设定遇到错误11/22 22:21
6F：→ newacc: 继续执行下一行，再把该物件set给一个变数，此时如果物件11/22 22:21
7F：→ newacc: 存在，变数便是那个物件，若不存在，则变数是nothing 11/22 22:21
成功了！感谢大大
另外再请问
On Error Resume Next
是不是可以套用在各种类似的错误中？
觉得vba最大的困扰就是找不到error在哪@@
※ 编辑: BanPeeBan (180.217.211.34), 11/23/2018 12:37:25
8F：→ newacc: 不完全是，这个只是叫程式忽略错误，没有经过errorHandler 11/23 19:08
9F：→ newacc: 处理，难保後续程式不会出问题 11/23 19:08
10F：→ newacc: 以我上述推文为例，我认为这是写在程式本体里的error 11/23 19:09
11F：→ newacc: handler，如果没有if那行，之後在使用ws的性质就可能会再 11/23 19:10
12F：→ newacc: 次出错 11/23 19:10
了解了 感谢大大！
※ 编辑: BanPeeBan (180.217.211.34), 11/25/2018 14:24:37