VBA和IE8-输入值并进行搜索

Posted 2021-04-14

我有一个基于Intranet的网站正在工作，我想输入SKU并使用VBA和IE8将数据收集到excel工作表中。当前正在等待Access许可证的批准和批准，以获取对我们的IBM as400服务器的访问权限。 IE8不支持getElementsByName，并且搜索栏没有ID，因此我在网上找到的大多数示例都不相关。

Sub scraper()

Dim item As Long

item = "10011" 'this will eventually be placed in a loop for multiple searches

Set objIE = CreateObject("InternetExplorer.Application")
  objIE.Visible = True
' navigate and download the web page
  objIE.Navigate "http://**********.aspx"
Do While objIE.ReadyState <> 4 Or objIE.Busy
    DoEvents
Loop

objIE.document.getElementsByName("input").Value = item


End Sub

这里是检查过的元素树的照片。如您所见，只有名称（输入）和类（st1），没有ID。我如何才能将搜索数据输入到该区域？我仍然使用IE8，尽管我确实也可以使用Chrome。...

答案

将objIE.document.getElementsByName("input").Value = item更改为objIE.document.getElementsByTagName("input")(0).Value = item最终解决了此问题。

IE8支持getElementsByTagName。