1

Executei o código abaixo e consegui identificar o campo ("body_x_tabc_x_identity_x_prxidentity_x_selBscenCode_x_txtselBscenCode_x_x") através da linha do Set objInputs. Porém não consigo identificar os demais campos. Entre eles existem também listboxes. Detalhe: A função "exibir código-fonte" está desabilitada. Como consigo identificar os campos para inserir as informações a partir do VBA? Obrigado!

Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
        (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2


Sub Botão1_Clique()
'
' Botão1_Clique Macro
'
' Cria um novo objecto do IE
Set IE = CreateObject("InternetExplorer.Application")

' Indica ao IE que deve navegar para a página
IE.Navigate "https://minhapagina.com"
IE.Visible = True
apiShowWindow IE.hwnd, SW_MAXIMIZE

' Loop de espera até o IE carregar a página
Do
DoEvents
Loop Until IE.ReadyState = 4

Set objInputs = IE.Document.getElementsByTagName("input")

' Preenche os campos necessários

IE.Document.getElementByID ("body_x_tabc_x_identity_x_prxidentity_x_selBscenCode_x_txtselBscenCode_x_x").Value = "YF - Indirect Material – Goods and services (free text)"

Set IE = Nothing

End Sub

0

Você deve fazer log-in para responder a esta pergunta.

Pesquise outras perguntas com a tag .