我一直在尝试使用 vba 来操作内部网站,但遇到了一个问题。目前,下面的脚本打开网页并将 sheet1 中单元格 a1 的值输入到网页上的文本框中。我的问题是,当我尝试单击搜索按钮时,我收到以下消息“运行时错误 438 对象不支持此属性或方法”。我尝试了几种不同的方法,但都不起作用。此外,我在检查元素时添加了按钮属性。谢谢!
<input name="Action" onclick="this.disabled=true; this.form.submit();" type="submit" value="Search">
Sub autoIE()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "webpage.com"
IE.Visible = True
While IE.Busy
DoEvents
Wend
IE.document.all("lookupNumberId").Value = ThisWorkbook.Sheets("Sheet1").Range("a1")
IE.document.all("Action").Click 'error 438
IE.document.getElementByName("Action").Click 'error 438
End Sub
答案1
仅供参考 BruceWayne 的建议对我有用,但我必须(0)
改为(1)
。
IE.document.getElementsByName("Action")(1).Click