|
這是本人在學習Excel VBA 填寫表單過程中的一些學習心得，可能存在錯誤，僅供參考。 以登錄網易163郵箱為例（只限于打開網頁，不涉及填寫表單和獲取數據） 方式一：VBA 打開瀏覽器并打開指定網頁 Sub Goto163()
???With CreateObject("InternetExplorer.Application")
??????? .Visible = True
????????.navigate "??????? Do Until .Readystate = 4 '判斷網頁是否加載完畢
???????????? DoEvents
??????? Loop
? End With
? MsgBox "Ok"
End Sub ? 方式二：VBA窗體添加WebBrowser控件，打開網頁 VBA默認是沒有加載WebBrowser控件，需要在工具箱添加控件“Microsoft Web Browser”控件 窗體web添加的WebBrowser名稱為WebBrowser1 Sub openurl () ??? web.WebBrowser1.Navigate "??? web.Show '不要這句的話就是后臺執行了 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對象用法 還未研究該方法 |
新跟帖 (共1 條評論)
查看更多評論。。。