主题：找高手开发项目

'操作网页标题
Dim webTitle As String = "ufo吧_百度贴吧"
'操作网页地址
Dim webUrl As String = "http://tieba.baidu.com/f?kw=UFO"
'操作网页元素ID
Dim elements() As String = New String(){"wd1"}
'获取表格第一个单元数据
Dim tableValue As String = Tables("表A").Rows(0)("第一列")
'填写内容
Dim values() As String = New String(){tableValue}
'提交按钮ID
Dim submit As String = "search_submit"
'返回地址同测试页
Dim backUrl As String = ""
'是否返回到测试页
If Forms("IEControlTest").Controls("CheckBox1").Checked = True Then
    backUrl  = webUrl
End If
'开始提交数据到网页
Try
    IEControl.SubmitValuesToWeb( _
         webTitle, _
         webUrl, _
         elements, _
         values, _
         submit, _
         backUrl, _
         300)
    MsgBox("测试成功!")
Catch ex As Exception
    MsgBox(ex.Message)
End Try

 在3楼，我是根据1楼作者的要求开发出来的，用foxtable控制IE页面示例的源码部分。

 不能，IEControl.SubmitValuesToWeb()这个调用过程需要一个IEControl.dll的插件。
这个插件不是公开的。