从没有名称或ID的表中提取数据

Question

我有一个在此地址中输入的代码（ https://processual.trf1.jus.br/consultaProcessual/numeroProcesso.php?secao=TRF1&enviar=ok ）并用数字填充空白（例如1778390520174019198）。 之后，我的代码单击“ pesquisar按钮”。 然后，我的代码单击“ partes”。

在那之后，这就是我需要的信息。 在此示例中，它是（requerente-Jamille Seixas Souza）。

我找不到将这些数据放入excel工作表的方法。 请帮我！ 到目前为止，这是我的代码。

Dim ie As InternetExplorer
Dim C
Dim numero As String
Dim HTMLDoc As HTMLDocument
Dim objlink As Object
Dim objElementCol As Object
Dim objElement As Object
Dim objeto As Object


numero = Application.InputBox("Por Favor entre com o numero precatorio", "", "")


Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "https://processual.trf1.jus.br/consultaProcessual/numeroProcesso.php?secao=TRF1&enviar=ok"

ieBusy ie

ie.Document.all("proc").innerText = numero
'obtém o forma a qual o controle de login pertence para submetê-lo
ie.Document.getElementById("enviar").Click

ieBusy ie

Dim elemUnique, elemCollection As Object
Set elemCollection = ie.Document.getElementsByTagName("a")
For Each elemUnique In elemCollection

If elemUnique.innerText Like "Partes" Then
    elemUnique.Click
    Exit For
End If                          
Next elemUnique

Answer 1

好的，让我看看。 这里

ie.Document.all("proc").innerText = numero

您可能正在尝试在文本框中输入一些值。 它应该是：

Dim iInputBox As IHTMLElement
Set iInputBox = ie.Document.getElementById("proc")
iInputBox.Value = numero

然后，您尝试单击按钮。 可以，但是您应该给应用程序一些时间来加载网站。 添加一段代码

Do Until ie.READYSTATE <> READYSTATE_COMPLETE
    DoEvents
Loop

也许您的功能（即忙）做了同样的事情，我不知道，它对我不起作用。 然后我们遇到了一个小问题，我不知道带有结果的网站的样子，我在inputbox中输入了1234567890，这使我无处可去。 当我键入数字1778390520174019198时，某些脚本会无休止地运行。 这可能是因为我在防火墙后面。 但是，如果单击“ Pesquisar”后网站上仅显示一个表，则此代码应该可以获取它。

Dim iTab As IHTMLElement
Dim iTr As IHTMLElement
Dim iTd As IHTMLElement
Dim lRow As Long
Dim lColumn As Long

Application.Wait (Now + TimeSerial(0, 0, 5)) 'lets give script some time to execute
Set iTab = ie.Document.getElementById("aba-processo")
lRow = 1
For Each iTr In iTab.getElementsByTagName("tr")
    lColumn = 1
    For Each iTd In iTr.getElementsByTagName("td")
        Cells(lRow, lColumn).Value = iTd.innerText
        lColumn = lColumn + 1
    Next iTd
    lRow = lRow + 1
Next iTr

最后，您应该关闭IE。

ie.Quit

我希望这是有帮助的。