如何使用VBA从HTML抓取内容

Sub GetHTMLContent()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim TargetElement As Object
    Dim URL As String
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象为不可见，以提高抓取效率
    IE.Visible = False
    
    ' 目标网页的URL
    URL = "https://example.com"
    
    ' 导航到目标网页
    IE.Navigate URL
    
    ' 等待页面加载完成
    Do While IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取HTML文档对象
    Set HTMLDoc = IE.Document
    
    ' 获取目标HTML元素
    Set TargetElement = HTMLDoc.getElementById("targetElementId")
    
    ' 提取内容
    MsgBox TargetElement.innerText
    
    ' 释放对象
    Set TargetElement = Nothing
    Set HTMLDoc = Nothing
    Set IE = Nothing
End Sub