Caro Ícaro, seu problema, na verdade, começa bem antes.
A linha IE.document.getElementsByTagName("button") 'aciono o botão pesquisar
não faz absolutamente nada. Ela não chama nenhum método, nem instancia o botão numa variável, nem aciona o botão pesquisar -- inclusive porque IE.document.getElementsByTagName("button")
retorna uma coleção de botões, e não um único botão. O botão "Peesquisar" é o 4º da coleção (índice 3).
Portanto, para clicar no botão pesquisar, você precisaria substituir a instrução acima por IE.document.getElementsByTagName("button")(3).Click 'aciono o botão pesquisar
Além disso, indo para a parte que você já evidenciou no final do código, atualmente você está clicando na célula de tabela HTML que contém o link (TD
). Isso realmente não produz resultado algum. Você quer, isso sim, clicar no link (A
) que está dentro da célula.
EDIÇÃO: Inseri a parte da requisição, que você pediu nos comentários.
Portanto, seu código final ficaria assim:
Sub busca_desc()
Dim ie As InternetExplorer
Dim tbody As HTMLTableSection
Dim req As New XMLHTTP60
Dim respostaJson As String, numOportunidade As String
Dim i As Variant
Range("B3:G3").ClearContents 'limpo o range
numOportunidade = "7003383741" ' Na verdade, toda essa função estará dentro de uma iteração das células com os números de oportunidade que você quer consultar. Aqui, coloquei um valor fixo, mas você provavelmente apontara para o calor contido na célula atual da iteração
Set ie = New InternetExplorer 'crio o objeto IE
ie.navigate "https://www.petronect.com.br/irj/go/km/docs/pccshrcontent/Site%20Content%20(Legacy)/Portal2018/pt/lista_licitacoes_publicadas_ft.html" 'Url do site
ie.Visible = True
Do While ie.Busy And ie.readyState <> "READYSTATE_COMPLETE" ' aguardar a página carregar
DoEvents
Loop
ie.document.getElementsByTagName("input")(3).Value = numOportunidade ' insiro o valor no campo para pesquisa
ie.document.getElementsByTagName("button")(3).Click 'aciono o botão pesquisar
Application.Wait (Now + #12:00:02 AM#)
Do While ie.Busy And ie.readyState <> "READYSTATE_COMPLETE" ' aguardar a página carregar
DoEvents
Loop
Set tbody = ie.document.getElementById("result")
' Aqui provavelmente você vai querer colocar uma estrutura de loop, algo como:
For Each i In tbody.getElementsByTagName("a")
req.Open "GET", "https://www.petronect.com.br/sap/opu/odata/SAP/YPCON_GET_HEADER_INFO_SRV/headerInfoSet('" & numOportunidade & "')?$format=json"
req.send corpoReq
respostaJson = req.responseText
respostaJson = Replace(respostaJson, "\""", """") ' As aspas externas são, no VB, o que delimita uma string. As aspas duplicadas dentro da string são a forma de o VB entender que não se trata da aspa-fim-da-string, e sim de uma aspa dentro do texto da string. Portanto, o que estamos fazendo aí é substituir '\"' por '"'.
' Nesse momento, respostaJson conterá um texto bem longo, e a parte dele que importa para você é algo como:
'"START_DATE":"2020-11-30","START_TIME":"10:00:00","QUOT_DEAD":"2021-02-19","QUOT_DEAD_TIME":"14:00:00","CREATED_AT_DATE":"2020-11-27","CREATED_AT_TIME":"17:19:50","TZONE":"Brasil - Distrito Federal","CURRENCY":"BRL","YPCON_MODALITY":"101","YPCON_MODALITY_NAME":"Licitação, Lei 13.303, Art. 28, CAPUT","PUBL_DOU_DATE":"2020-11-30","DISPUTE_MODE":"02","YPCON_OBJ_CONT_DESC":"Serviço de conceituação, planejamento, criação, manutenção de ambientes digitais que compõem a presença digital da PETROBRAS."
' Prontinho! Agora você vai parsear esse texto, buscando as variáveis que te interessarem.
Next i
'ie.Quit
'Range("A3:g3").WrapText = False
End Sub
P.S.: Para habilitar as classes InternetExplorer
, HTMLTableSection
e outras, você precisa ir em Ferramentas -> Referências e selecionar a opção Microsoft HTML Object Library.
EDIÇÃO: Para habilitar a classe XMLHTTP60, você vai precisar fazer mais uma referência, dessa vez a "Microsoft XML, v. #.0" (a minha é 6.0).