vba怎样写点击网页内容？

mini32

在用VBA自动填充网页表单的有两个问题
1.菜单是这样子的，需要点开才可以进行下一步操作，VBA怎样定点击事件？只是一个DIV不是连接，但是在网页上点又可以点开子菜单
直接
IE.Document.getElementById("menutab_2").Click
报错

代码如下
<DIV class=tab_list>
<DIV class="tabtab tabtabon" id=menutab_1 jQuery1112013589832249323386="1">快捷菜单 </DIV>
<DIV class=tabtab id=menutab_2 jQuery1112013589832249323386="3">系统菜单</DIV>
<DIV style="CURSOR: pointer; FLOAT: right; MARGIN-TOP: 10px; DISPLAY: none; MARGIN-RIGHT: 2px">
<IMG title=设置快捷菜单 id=set_user_menu style="WIDTH: 16px; MARGIN-LEFT: 8px" src="../images/32x32/set.png" jQuery1112013589832249323386="4">
<DIV style="FLOAT: right; DISPLAY: inline; MARGIN-RIGHT: 2px">菜单</DIV>
</DIV>
</DIV>



2.同样上传文件的按键，不是按键，是一个flash，<object>标签，vba又是写怎样点击？

代码：
<OBJECT id=SWFUpload_0 class=swfupload classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=65 height=29><PARAM NAME="_cx" VALUE="1720"><PARAM NAME="_cy" VALUE="767"><PARAM NAME="FlashVars" VALUE="movieName=SWFUpload_0&amp;uploadURL=%2Fupload%2FfileSave&amp;useQueryString=true&amp;requeueOnError=false&amp;httpSuccess=&amp;params=jsessionid%3D84512616-9670-4331-9e39-fa1b51ca7164&amp;filePostName=Filedata&amp;fileTypes=*.jpg%3B*.jpeg%3B*.gif%3B*.png%3B*.PNG%3B*.doc%3B*.docx%3B*.xls%3B*.xlsx%3B*.mdb%3B*.pdf%3B*.txt%3B*.rar%3B*.zip%3B*.bmp%3B&amp;fileTypesDescription=%E6%96%87%E4%BB%B6&amp;fileSizeLimit=10%20MB&amp;fileUploadLimit=50&amp;fileQueueLimit=50&amp;debugEnabled=false&amp;buttonImageURL=images%2Ffilebotton.png&amp;buttonWidth=65&amp;buttonHeight=29&amp;buttonText=&amp;buttonTextTopPadding=3&amp;buttonTextLeftPadding=12&amp;buttonTextStyle=.theFont%20%7B%20font-size%3A%2016%3B%20%7D&amp;buttonAction=-110&amp;buttonDisabled=false&amp;buttonCursor=-2"><PARAM NAME="Movie" VALUE="swfupload/swfupload.swf?swfuploadrnd=600687611"><PARAM NAME="Src" VALUE="swfupload/swfupload.swf?swfuploadrnd=600687611"><PARAM NAME="WMode" VALUE="Opaque"><PARAM NAME="Play" VALUE="0"><PARAM NAME="Loop" VALUE="-1"><PARAM NAME="Quality" VALUE="High"><PARAM NAME="SAlign" VALUE="LT"><PARAM NAME="Menu" VALUE="0"><PARAM NAME="Base" VALUE=""><PARAM NAME="AllowScriptAccess" VALUE="always"><PARAM NAME="Scale" VALUE="NoScale"><PARAM NAME="DeviceFont" VALUE="0"><PARAM NAME="EmbedMovie" VALUE="0"><PARAM NAME="BGColor" VALUE=""><PARAM NAME="SWRemote" VALUE=""><PARAM NAME="MovieData" VALUE=""><PARAM NAME="SeamlessTabbing" VALUE="1"><PARAM NAME="Profile" VALUE="0"><PARAM NAME="ProfileAddress" VALUE=""><PARAM NAME="ProfilePort" VALUE="0"><PARAM NAME="AllowNetworking" VALUE="all"><PARAM NAME="AllowFullScreen" VALUE="false"><PARAM NAME="AllowFullScreenInteractive" VALUE="false"><PARAM NAME="IsDependent" VALUE="0"><PARAM NAME="BrowserZoom" VALUE="scale"></OBJECT>