MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 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 em 9/2/2019, 09: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: 25/5/2019, 16:43