使用VBA获取div中的所有元素

Sub GetDivElements()
    Dim ie As Object
    Dim html As Object
    Dim divElements As Object
    Dim divElement As Object
    
    ' 创建一个新的Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    With ie
        .Visible = False ' 设置为不可见，以便在后台运行
        .navigate "https://example.com" ' 替换为你要获取div元素的网页链接
        ' 等待IE加载完毕
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 获取网页的HTML文档对象
        Set html = .document
    End With
    
    ' 根据div元素的标识或类名获取所有div元素
    Set divElements = html.getElementsByClassName("divClassName") ' 替换为你要获取的div元素的类名
    
    ' 遍历所有div元素并输出其内容
    For Each divElement In divElements
        Debug.Print divElement.innerText ' 可以根据需要将div元素的内容输出到其他位置
    Next divElement
    
    ' 关闭IE对象
    ie.Quit
    Set ie = Nothing
End Sub