用VBS自动完成EXCEL数据填写到网页中

[snatj]

Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://*.*.*.*:8090/Default.aspx"
ie.Visible = true
do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
Dim di
di=ie.document.getElementsByName("KB3Parent")
di.click

我想点击装机信息管理，然后再点击添加装机信息。怎么不行呢。
网页代码：


<div id='KB3Parent' class='parent hh'>
<a href="#" class="header" onclick="expandIt('KB3'); return false">装机信息管理</a>
</div>
<div id='KB3Child' class='child'>
<div class="cc">
<a href='#' onclick="document.frames['frame1'].document.location='M7/FacList.aspx?id=70';return false;">
<img src='Image/M81.gif' style="border: 0px" alt="装机信息清单" />装机信息清单</a></div>
<div class="cc">
<a href='#' onclick="document.frames['frame1'].document.location='M7/AddFacList.aspx?id=70&SaveMode=1';return false;">
<img src='Image/M81.gif' style="border: 0px" alt="装机信息清单" />添加装机信息</a></div>
<div class="cc">
<a href='#' onclick="document.frames['frame1'].document.location='M7/FindFacList.aspx?id=70';return false;">