Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Copiar dados de uma pagina da web

maandrake
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Seg Fev 11, 2019 4:39 pm

Copiar dados de uma pagina da web

Mensagem por maandrake » Seg Fev 11, 2019 4:48 pm

Bom dia, tenho um BD Access para cadastrar clientes e seus veículos, uso o código a seguir para acessar a pagina do detran e copiar manualmente os dados do veículo.

Private Sub ComandoConsultaPlaca_Click()

Dim ieApp As Object
Dim Button As HTMLInputElement

Set ieApp = CreateObject("InternetExplorer.Application")

With ieApp
.Visible = True
ShowWindow .hwnd, SW_MAXIMIZE 'Usa o mdlIE para Maximizar a janela que abre do IE
SetForegroundWindow .hwnd
.navigate ("http://consultas.detrannet.sc.gov.br/se ... asp?placa=" & Placa.Value & "&renavam=" & Renavam.Value)

End With
End Sub

Gostaria de saber se é possível colocar um código para que após resolvido o captcha e for apertado o botão de consulta o código vba copie automaticamente os dados do veículo. Isso é possível?



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder