[英]Excel Error Handling not Stopping Sheet Select Pop-Up
我创建了一个检查外部工作簿中是否存在工作表的函数。 代码如下(我已经检查了这一点,并且可以与其他工作表完美配合,注释掉引用了此内容的If
语句可以停止错误):
Function ExtSheetExists(formString) As Boolean
Dim val As Variant
On Error Resume Next
val = ExecuteExcel4Macro(formString)
ExtSheetExists = (val <> Error(2023))
On Error GoTo 0
End Function
注意: FormString
传递为"'" & wkBookRef1 & firstShtName & "'!" & "R6C12"
"'" & wkBookRef1 & firstShtName & "'!" & "R6C12"
,其中wkBookRef1
只是电子表格的路径,而firstShtName
是要查找的电子表格名称。
但是,稍后当我使用UpdateLink
方法更新同一电子表格时,它将弹出“选择工作表”对话框,从而停止运行宏。 有人对这里发生的事情有什么了解吗?
选择工作表框如下:
这是一个错误。 有效地运行formstring
并取消显示消息框。 但是,似乎在另一个电子表格中它仍然是一个潜在的过程。 因此,更新后会显示禁止显示的消息框。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.