用VBA将网页文本复制到Excel中的单个单元格？

Sub CopyWebTextToCell()
    Dim objIE As Object
    Dim objElement As Object
    Dim objSelection As Object
    Dim url As String
    
    ' 设置要访问的网页URL
    url = "https://www.example.com"
    
    ' 创建Internet Explorer对象
    Set objIE = CreateObject("InternetExplorer.Application")
    
    ' 打开网页
    objIE.Navigate url
    
    ' 等待网页加载完成
    Do While objIE.Busy Or objIE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取网页文本
    Set objElement = objIE.document.getElementById("elementID") ' 替换为要复制的网页元素的ID
    
    ' 将文本复制到剪贴板
    objElement.Focus
    objElement.SelectAll
    objElement.Copy
    
    ' 将文本粘贴到Excel单元格
    Set objSelection = ThisWorkbook.ActiveSheet.Range("A1") ' 替换为要粘贴的单元格地址
    objSelection.PasteSpecial
    
    ' 关闭Internet Explorer对象
    objIE.Quit
    
    ' 清理对象变量
    Set objIE = Nothing
    Set objElement = Nothing
    Set objSelection = Nothing
End Sub