当前位置: 代码迷 >> VBA >> 怎么把EXCEL表格中的数据写入打开网页源程序中
  详细解决方案

怎么把EXCEL表格中的数据写入打开网页源程序中

热度:4522   发布时间:2013-02-26 00:00:00.0
如何把EXCEL表格中的数据写入打开网页源程序中?
    大家好!
    我最近在做一个课题。在EXCEL中运用VBA实现自动登录网页,自动从EXCEL中写入数据,在自动从网页中把搜索到的数据导出到EXCEL中在转换成文本。现在我只实现了第一步,也就是自动登录网站。接下来卡在了第二步。
    我在excel中编辑了一段代码运用VBA自动登录到了一个化妆品网站。我把搜索条件‘香水’写在EXCEL表格第一行第一列。我打开了这个网页的源程序,找到了网页中搜索框的一个变量。(不知道找的对不对)。现在我想把EXCEL中的搜索条件‘香水’写入到网页源程序变量中。实现用VBA自动从EXCEL中写入数据。请问怎么操作。  请教高手,希望能把操作步骤说详细点。谢谢。
     代码如下:
  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
      
------解决方案--------------------------------------------------------


帮顶,我发的网页看了没!
------解决方案--------------------------------------------------------
    看了阿。我本来就不会VBA。刚接触。导师要我做这么一个课件。所以看你那个网页看得云里雾里。所以干脆把课件全部内容和代码发在帖子上。希望有高手帮忙解决。呵呵
------解决方案--------------------------------------------------------
加上这句看看


 .GetElementById("searchText").Value = sheet1.cells(1,1).text


点击按钮那个, 可以参考下面

for each vdoc in ie.document.all
  if vdoc.tagname="INPUT" and ucase(right(vdoc.src,14)) = ucase("btn_goGrey.gif") then
      vdoc.click
  end if 
next


------解决方案--------------------------------------------------------
直接加后面吗
  相关解决方案