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

如何把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


[解决办法]
直接加后面吗