8

在我认为正确的 ID 标签之后，我在搜索框中输入文本时遇到了一些麻烦。我从页面的源代码中获得了 ID。我以前在其他网站上做过。有人可以帮我吗？还有另一种方法可以做到这一点吗？

Sub FileUpload()

Dim IEexp as Object
IEexp.visible = True
IEexp.Navigate ("www.example.com")

'this is where the problem
IEexp.Document.GetElementByID("step1_id_bean_newSupportingDoc_description").Value _ 
= "monthly update"

End Sub

我收到“自动化错误，调用的对象已与其客户端断开连接”

我从中提取 ID 的源代码：

<td class="Label">Description</td>
  <td class="Data"><input type="text" name="bean.newSupportingDoc.description" size="60" maxlength="250" value="" id="step1_id_bean_newSupportingDoc_description" class="NoBorder"/>
</td>
4

2 回答 2

2

如果您使用Set IEexp = New InternetExplorerMedium，则不必更改 Internet 选项中的设置。它使用中等完整性应用程序设置自动实例化 IE 对象。

于 2013-10-31T12:20:35.547 回答
0

你可以试试

Do Until IEexp.readyState = 4
DoEvents
Loop



IEexp.Document.getElementById("username").Value = "Monthly update"


IEexp.Document.getElementById("password").Value = FilePth
于 2013-03-07T15:04:02.207 回答