用VBA擦写JavaScript表

在阅读了很多这方面的内容之后，我决定join社区，并希望通过对我没有看到的答案提供一些答案来获得一些额外的知识。

目前，我正在研究一个VBA抓取macros，它将通过JavaScript呈现表上的不同search请求循环。 我可以使用combobox和单选button来提交我的请求（感谢这个论坛！），但我不知道如何将检索到的数据从表中提取出来，并将数据放入Excel文件中。 如果没有find结果，我也想弄清楚如何做出“如果”的陈述。 当find结果时，这是来自网站的代码。 图片还显示我刮的url。 网站代码和url

我的大问题是，我没有看到身份证元素在任何地方参考？

当结果显示时，我需要按照个人的超链接，然后刮掉显示的数据。

我目前的代码是：

Sub web_scraper() Set ie = CreateObject("InternetExplorer.Application") my_url = "https://www.sircon.com/ComplianceExpress/Inquiry/consumerInquiry.do?nonSscrb=Y" With ie .Visible = True .navigate my_url .Top = 50 .Left = 530 .Height = 800 .Width = 800 Do Until Not ie.Busy And ie.readyState = 4 DoEvents Loop End With With ie.document .all.Item("state").selectedindex = 2 .all.Item("state").FireEvent ("onchange") Application.Wait (Now + #12:00:02 AM#) .all.Item("entityType")(1).Click Application.Wait (Now + #12:00:02 AM#) .all.Item("AddressType")(1).Click .all.Item("maxRecords").selectedindex = 4 .all.Item("qualificationType").selectedindex = 16 End With 

昏暗的我只要昏暗的j只要

对于我= 1至607

  ie.document.all.Item("city").Value = Worksheets("Cycle").Cells(i, 2).Value For j = 1 To 676 ie.document.all.Item("lastName").Value = Worksheets("Cycle").Cells(j, 1) ie.document.all.Item("submitButton").Click 

'点击第一个链接，从页面抓取所有数据，返回，转到下一个结果'，按照超链接和刮页面，重复直到所有结果被刮掉。

  Next j Next i 

页面一次只能拖200个名字，所以我按城市search，然后用两个字母组合（姓名来源于excel表格）。 任何帮助将不胜感激。