如何使用VBA从下面的页面抓取mailto

Sub GetEmail()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim EmailElement As Object
    Dim EmailAddress As String
    
    ' 创建一个新的Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE窗口不可见
    IE.Visible = False
    
    ' 打开目标网页
    IE.Navigate "http://example.com" ' 将"http://example.com"替换为你要抓取的页面链接
    
    ' 等待页面加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取页面的HTML文档
    Set HTMLDoc = IE.document
    
    ' 在HTML文档中查找mailto链接
    Set EmailElement = HTMLDoc.querySelector("a[href^='mailto:']")
    
    ' 提取邮箱地址
    EmailAddress = Mid(EmailElement.href, 8)
    
    ' 在Excel中显示抓取到的邮箱地址
    Range("A1").Value = EmailAddress
    
    ' 关闭Internet Explorer
    IE.Quit
End Sub