抓取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")

.document 的末尾没有s。