未设置VBA对象变量- HTML抓取

Sub HTML抓取示例()
    Dim IE As Object ' InternetExplorer对象变量
    Dim HTMLDoc As Object ' HTMLDocument对象变量
    Dim HTMLTable As Object ' HTMLTable对象变量
    
    ' 创建InternetExplorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    IE.Navigate "https://www.example.com"
    
    ' 等待网页加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取网页的HTMLDocument对象
    Set HTMLDoc = IE.Document
    
    ' 根据HTML元素的标签名或ID等属性获取对象变量
    Set HTMLTable = HTMLDoc.getElementById("table1")
    
    ' 对获取到的HTMLTable进行操作，如提取数据等
    ' ...
    
    ' 关闭InternetExplorer对象
    IE.Quit
    
    ' 释放对象变量的内存
    Set IE = Nothing
    Set HTMLDoc = Nothing
    Set HTMLTable = Nothing
End Sub