报废Web VBA Excel不清楚

Question

我刚刚开始学习网页报废，我正在尝试制作一个代码，在网页中搜索特定数据，然后点击搜索，然后在Excel工作表中提取特定数据，我成功地将我想要的变量放入在网页中但是当我使用搜索按钮时，我收到此错误

我不知道该怎么做或纠正它 这是我的代码和按钮代码

VBA代码

     Sub clickICC()
     Dim ie As Object
     Dim form As Variant, button As Variant
     Set ie = CreateObject("InternetExplorer.Application")

     myjobtyp = InputBox("Enter type of MP,MOD,DATE")


      With ie
     .Visible = True
     .navigate ("http://XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")


     While ie.ReadyState <> 4
    DoEvents
     Wend

     ie.document.getElementsbyname("searchById").Item.innertext = myjobtyp


    Set form = ie.document.getElementsbytagname("form")

     Set button = form(0).onsubmit
     form(0).submit

      Do While ie.busy: DoEvents: Loop
      Set TDelements = .documents.getElementsbytagname("td")
    r = 0
     c = 0

      For Each TDelements In TDelements
     sheet1.Range("A1").Offset(r, c).Value = TDelement.innertext
      r = r + 1
     Next





      End With
       Set ie = Nothing


      End Sub

网络按钮代码

任何人都有这方面的线索或点亮我如何解决这个问题？

Answer 1

您可以尝试使用CSS选择器来定位src字符串。

document.querySelector("input[src*=""/cmh/cmh/image/button_search.gif""]").Click

请注意，原帖中有拼写错误：

Set TDelements = .documents.getElementsbytagname("td")

s的末尾没有.document。