【轉(zhuǎn)載】VBA -網(wǎng)頁(yè)控制方式簡(jiǎn)介_(kāi)編織博客

2013-12-06 13:56 查看博客原文

這是本人在學(xué)習(xí)Excel VBA 填寫(xiě)表單過(guò)程中的一些學(xué)習(xí)心得,可能存在錯(cuò)誤,僅供參考。

以登錄網(wǎng)易163郵箱為例(只限于打開(kāi)網(wǎng)頁(yè),不涉及填寫(xiě)表單和獲取數(shù)據(jù))

方式一:VBA 打開(kāi)瀏覽器并打開(kāi)指定網(wǎng)頁(yè)

Sub Goto163()
???With CreateObject("InternetExplorer.Application")
??????? .Visible = True
????????.navigate "??????? Do Until .Readystate = 4 '判斷網(wǎng)頁(yè)是否加載完畢
???????????? DoEvents
??????? Loop
? End With
? MsgBox "Ok"
End Sub

?

方式二:VBA窗體添加WebBrowser控件,打開(kāi)網(wǎng)頁(yè)

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

窗體web添加的WebBrowser名稱為WebBrowser1

Sub openurl ()

??? web.WebBrowser1.Navigate "??? web.Show '不要這句的話就是后臺(tái)執(zhí)行了

End sub

再在WebBrowser中添加以下過(guò)程

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

'填寫(xiě)需要操作的代碼
End Sub

?

方式三:XmlHttp對(duì)象用法

還未研究該方法

新跟帖 (共1 條評(píng)論)

查看更多評(píng)論。。。