[分享]网页数据下载与控制

gjb_zjf

谢谢分享！！！

gdgzlyh

留着慢慢学习！

hyangyang0613

楼主，你能帮我看看这个吗？我需要做一个程序，在excel中运用vba自动登录网页。我是登陆一个化妆品网页。我的步骤如下：
1、添加一个窗体
2、添加一个webbrower控件和1个按钮
3、按钮的Capiton属性设置为 "登录 ",   webbrowser的name设置 "ie "
4、Form_load事件里头添加
ie.navigate   "about:blank "   '初始化的
ie.navigate   "www.baidu.com "   '直接打开百度
5、按钮的Click事件里头添加
ie.navigate   url   'url是你需要登录的站点
'------------------以下3行中的idname,idpwd,idlogin分别为你登录的网页源码里头找到的用户密码和登录按钮的id或者name属性。
ie.documen.all(idname).value=用户名
ie.document.all(idpwd).value=用户密码
ie.document.all(idlogin).click   '登录

我在代码框里按上述步骤制作如下：
Private Sub CommandButton1_Click()
ie.Navigate "http://www.sephora.cn/IndexLogin.html"
ie.Document.loginForm.UserId.Value = "hyangyang0613"
ie.Document.loginForm.userpass.Value = "hyy379509"
ie.Document.loginForm.submit.Click
End Sub

Private Sub ie_StatusTextChange(ByVal Text As String)
End Sub

Private Sub UserForm_Initialize()
ie.Navigate "about:blank"
ie.Navigate "http://www.sephora.cn/?rsour=baidu&rmeth=brandzone&rterm=title&rcamp=title&_sv_code=36_1938477_134848278|{creative}|{domain}"
End Sub

最后执行出现错误在
ie.Document.loginForm.UserId.Value = "hyangyang0613"
ie.Document.loginForm.userpass.Value = "hyy379509"
ie.Document.loginForm.submit.Click

执行之后首先登陆的是化妆品的首页，这一步成功了。我制作的按钮里有我的登录名和用户密码，点击这个按钮本该是进入登陆了的界面，可现在点击按钮之后灭有反应。是怎么回事呢？

xuhuaibing

学习学习牛人，楼主辛苦了

bmdsjxyw

网页数据读取研究中

xcvba

感谢楼主提供学习资料.

shisee

非常感谢分享

whpj

感谢gdjxwz，收藏学习！

tsyanyan

感谢楼主分享,先研究一下去了

wuwyl

ddddddddddd