Captura dos dados do cartão CNPJ[RESOLVIDO]
Enviado: Seg Jul 13, 2020 11:16 am
Bom dia,
Estou fazendo um rotina simples VBA para fazer a captura dos dados do cartão CNPJ para preenchimento de um contrato com os dados do cartão.
Já consegui fazer a consulta para abrir o cartão, mas não consigo identificar no código qual elemento buscar para o retorno dos dados que preciso.
Preciso que seja no IE e a consulta no site da RFB.
Segue abaixo o código:
Desde já agradeço os conhecimentos adquiridos neste Fórum.
Estou fazendo um rotina simples VBA para fazer a captura dos dados do cartão CNPJ para preenchimento de um contrato com os dados do cartão.
Já consegui fazer a consulta para abrir o cartão, mas não consigo identificar no código qual elemento buscar para o retorno dos dados que preciso.
Preciso que seja no IE e a consulta no site da RFB.
Segue abaixo o código:
Código: Selecionar todos
Sub AcessaRFB()
Dim ie As Object
Dim Vpesq As String
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://servicos.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp"
Do While ie.Busy
Loop
Vpesq = InputBox("Informar CNPJ:")
ie.Visible = True
ie.Document.getElementsByName("cnpj").Item.InnerText = Vpesq
MsgBox ("CAPTCHA confirmada ?")
ie.Document.getElementsByclassName("btn btn-primary").Item.Click
MsgBox ("continuar?")
'''Até aqui funciona,
'''Vresult = ie.Document.getElementbyid("principal").innertext
'''MsgBox ("Vresult ?")
ie.Quit
End Sub