JMK*_*JMK 9 ms-access vba activex webbrowser-control
我正在使用VBA与Microsoft Access.
我正在将对象设置为WebBrowserControl中有时存在的项目,有时不存在.
Dim myWebBrowser As Object
Dim myItemInsideWebpage As Object
Set myWebBrowser = Me.WebBrowser0.Object
Set myItemInsideWebpage = myWebBrowser.Document.GetElemendById("myDiv")
Run Code Online (Sandbox Code Playgroud)
如果'myDiv'存在,那真棒,如果不是我想让Access让我知道所以我可以处理它.
Jim*_*ena 15
我相信它会是这样的
If myItemInsideWebpage Is Nothing Then
' doesn't exist
Else
' does exist
End If
Run Code Online (Sandbox Code Playgroud)
您可能需要在'Set'语句前加上'On Error Resume Next',以防在'myDiv'不存在时抛出错误.