MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Copiar dados de uma pagina da web

    avatar
    maandrake
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 11/12/2012

    Copiar dados de uma pagina da web Empty Copiar dados de uma pagina da web

    Mensagem  maandrake 9/2/2019, 11:53

    Crying or Very sad 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

       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/servicos/consultaveiculo.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? Question

      Data/hora atual: 22/11/2024, 03:16