fieldset{padding:10px;}
急~~~~求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 WithEnd WithEnd 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 ‘登录 请各位大侠过目，并留下宝贵的建议。希望也可以借鉴别的方法。 谢谢各位了！！！——解决方案——————————————————–楼主的写法让人不放心,建规范写法,尽管可能不是这个原因:dim objIE as objectset objIE=CreateObject("InternetExplorer.Application")With objIE思念是一种幸福的忧伤，是一种甜蜜的惆怅，是一种温馨的痛苦；
