如何使用VBA excel从资源中获取og:image

Sub GetOGImage()
    Dim url As String
    Dim ie As Object
    Dim img As Object
    
    ' 获取资源链接
    url = Sheets("Sheet1").Range("A1").Value
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 打开链接
    ie.Navigate url
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取页面中的所有图片
    For Each img In ie.Document.getElementsByTagName("img")
        ' 判断图片是否为og:image
        If img.getAttribute("property") = "og:image" Then
            ' 输出og:image链接
            MsgBox img.getAttribute("content")
            Exit For
        End If
    Next img
    
    ' 关闭Internet Explorer对象
    ie.Quit
    Set ie = Nothing
End Sub