这是本人在学习Excel VBA 填写表单过程中的一些学习心得,可能存在错误,仅供参考。
以登录网易163邮箱为例(只限于打开网页,不涉及填写表单和获取数据)
方式一:VBA 打开浏览器并打开指定网页
Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
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 "http://mail.163.com"
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对象用法
还未研究该方法
评论