在VBA中通过嵌套标记名实现getElement

Sub GetElementByNestedTagName()
    Dim ie As Object
    Dim doc As Object
    Dim parentElement As Object
    Dim childElement 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
    
    ' 获取文档对象
    Set doc = ie.document
    
    ' 获取父级元素对象
    Set parentElement = doc.getElementsByTagName("parentTagName")(0)
    
    ' 获取子级元素对象
    Set childElement = parentElement.getElementsByTagName("childTagName")(0)
    
    ' 对获取到的元素进行操作
    childElement.innerText = "Hello, World!"
    
    ' 关闭Internet Explorer对象
    ie.Quit
    
    ' 释放对象引用
    Set childElement = Nothing
    Set parentElement = Nothing
    Set doc = Nothing
    Set ie = Nothing
End Sub