Excel VBA:循环访问DIV内容-粘贴到单个单元格中

Sub ExtractDIVContent()
    Dim ie As Object
    Dim html As Object
    Dim div As Object
    Dim cell As Range
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    ie.Navigate "http://example.com" ' 替换为你要访问的网页链接
    
    ' 等待网页加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取网页内容
    Set html = ie.document
    
    ' 循环访问DIV内容并粘贴到单元格中
    For Each div In html.getElementsByTagName("div")
        ' 替换为你要粘贴到的单元格地址
        Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")
        cell.Value = div.innerText
        Set cell = cell.Offset(1) ' 每次粘贴到下一行
    Next div
    
    ' 关闭Internet Explorer对象
    ie.Quit
    
    ' 释放对象
    Set ie = Nothing
    Set html = Nothing
    Set div = Nothing
    Set cell = Nothing
End Sub