Excel 检查数据束

所以我有很多不同的数据需要在一个网站上进行比较，我对此进行了深入的解释

所以我必须去一个网站，把a1贴在第1框，把b1贴在第2框，把c1贴在第3框，这个网站已经重新展示了（我不是在问我是否能够绕过，我知道我必须自己解决它，因此在这种情况下，我的脚本、应用程序或任何东西必须等待我解决验证码，因为这将导致出现一个新页面，在这种情况下，宏应用程序或任何东西应该在d1中发布类似无效的内容，然后需要重新启动，但这会导致我拿专栏2 ie a2 b2 c2 d2我一直在读实现这一点的最佳方法是在VBA中完成它，我尝试过遵循教程等等，但我似乎不太理解它…请帮助

我尝试的是：

    Sub ListaNominal()

Dim IE As Object
Dim doc As HTMLDocument

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "xxxxxxxxxxxxxxx/"

Do While IE.Busy Or IE.readyState <> 4
Application.Wait DateAdd("s", 1, Now)
Loop

Set doc = IE.document
IE.document.getElementById("claveElector").Value = GTLPAL73052511H600
doc.getElementById("numeroEmision").Value = 2
doc.getElementById("ocr").Value = 1121035022017#
MsgBox "Click to go on", , "Example"


Set element = doc.getElementsByClassName("col-xs-6 col-sm-8 table-responsive")("VALIDA")


ThisWorkbook.Sheets("Hoja1").Range("d1").Value = element

End Sub

Sub-ListaNominal（）
模糊的物体
作为HTMLDocument的Dim doc
设置IE=CreateObject（“InternetExplorer.Application”）
可见=真实
IE.navigate“XXXXXXXXXXXXX/”
在忙或准备状态4时执行
Application.Wait DateAdd（“s”，1，Now）
环
Set doc=IE.document
IE.document.getElementById（“clavelector”）.Value=GTLPAL73052511H600
doc.getElementById（“numeromision”）。值=2
doc.getElementById（“ocr”）。值=112103502017#
MsgBox“单击继续”，“示例”
Set element=doc.getElementsByClassName（“col-xs-6 col-sm-8表格响应”）（“VALIDA”）
此工作簿.Sheets（“Hoja1”）.范围（“d1”）.值=元素
端接头

---

但是，即使使用硬编码的值，也似乎不起作用。我的一位朋友告诉我，如果我尝试将CSV文件与Autofill Chrome应用程序一起使用，VBA可能会非常困难，但我似乎不知道如何做到这一点。如果您运行代码，将非常感谢任何帮助。

当您运行代码时会发生什么？如果没有URL或所有的r，这是不可能回答的一开始一切都很好，问题出现在我点击“继续”之后，它发送的值比预期的要多，因为它返回的验证码有问题，并且在一个值中出错，我知道这是第二个，因为它需要是“02”不是简单的2好吧，只是注意到我没有添加报价单是犯了一个错误。getElementById（“numeroEmision”）。Value=“02”表单填充工作正常，但是我解决的验证码现在回答错误，仍然尝试“中断”->“恢复工作运行代码时会发生什么？如果没有URL或所有相关HTML，这是不可能回答的。开始时一切正常单击“继续”后出现问题”它发送的值比预期的要多，因为它返回了验证码问题和一个值中的错误，我知道这是第二个值，因为它需要是“02”，而不是一个简单的2。好吧，刚才注意到我没有添加引号doc.getElementById（“numeromision”）。value=“02”表单填写工作正常，但我解决的验证码现在回答错误，仍然尝试“中断”->“恢复”工作