急~~~~求VBA在excel中自动登录网站,自动写入数据的方法,自动导出网页数据的方法。
大家好。我这有个课题如下:运用VBA在EXCEL中实现自动登录网页;再运用VBA自动从EXCEL表格中把数据写入到网页中。再自动把在网页中读取的数据导入EXCCEL。
我登录了一个化妆品网站,然后在EXCEL表格第一行第一列输入了搜索条件“香水”,现在我想把“香水”运用VBA自动写入到网页的搜索框里。以下是我的代码:
Sub test()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.sephora.cn/?rsour=baidu&rmeth=brandzone&rterm=title&rcamp=title&_sv_code=36_1938477_134848278|{creative}|{domain}"
DoEvents
While .busy
DoEvents
Wend
With .Document
.GetElementById("username").Value = "hyangyang0613"
.GetElementById("password").Value = "hyy379509"
.GetElementById("loginsubmit").Click
End With
End With
End Sub
之前有人给了我一种方法,我按照步骤之后执行不成功。以下是别人给的方法:
假设你用的IE对象, 假设你在sheet1的第1行1列输入, 假设网页搜索元素ID为SearchId, 你可以参考一下下面的:
ie.Document.all( "SearchID ").Value = Sheets1.Cells(1, 1)
这是一句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.document.all(idname).value=用户名
ie.document.all(idpwd).value=用户密码
ie.document.all(idlogin).click '登录
请各位大侠过目,并留下宝贵的建议。希望也可以借鉴别的方法。
谢谢各位了!!!