VBA检查页面上是否存在HTMLDivElement，然后再继续

Sub CheckHTMLDivElement()
    Dim ie As Object
    Dim divElement As Object
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    ie.Navigate "https://www.example.com"
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取页面上的所有div元素
    Set divElement = ie.document.getElementsByTagName("div")
    
    ' 遍历div元素，检查是否存在HTMLDivElement
    For Each div In divElement
        If TypeName(div) = "HTMLDivElement" Then
            MsgBox "页面上存在HTMLDivElement"
            Exit Sub
        End If
    Next div
    
    ' 页面上不存在HTMLDivElement
    MsgBox "页面上不存在HTMLDivElement"
    
    ' 关闭Internet Explorer对象
    ie.Quit
    Set ie = Nothing
End Sub