方式二：VBA窗體添加WebBrowser控件，打開網(wǎng)頁

VBA默認(rèn)是沒有加載WebBrowser控件，需要在工具箱添加控件“Microsoft Web Browser”控件

窗體web添加的WebBrowser名稱為WebBrowser1

Sub openurl ()

End sub

再在WebBrowser中添加以下過程

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Doc As Object
Set Doc = WebBrowser1.Document

Do Until WebBrowser1.Readystate = 4
    DoEvents
Loop

'填寫需要操作的代碼
End Sub

方式三：XmlHttp對象用法

還未研究該方法