在excel-VBA中获取Internet Explorer窗口属性(pageYOffset)

Sub GetIEWindowProperties()
    Dim ie As Object
    Dim doc As Object
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 显示Internet Explorer窗口
    ie.Visible = True
    
    ' 打开一个网页
    ie.Navigate "https://www.example.com"
    
    ' 等待网页加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取Internet Explorer窗口的属性
    Set doc = ie.document
    MsgBox "pageYOffset: " & doc.parentWindow.pageYOffset
    
    ' 关闭Internet Explorer窗口
    ie.Quit
    Set ie = Nothing
End Sub