MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Capturar Dados da Web para Cadastro.

    Compartilhe

    Ednardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/11/2015

    [Resolvido]Capturar Dados da Web para Cadastro.

    Mensagem  Ednardo em Sex 05 Ago 2016, 03:44

    Olá, Tenho um sisteminha em Access de um Delivery de Sanduíche, neste delivery recebo pedidos por telefone e por internet, tenho que manter todos os pedidos unificados no meu sistema, os de telefone e os de internet, então tenho que imprimir esta tela e lançar todos os dados manualmente no sistema como se tivesse atendendo uma ligação de um pedido por telefone pois os dados coletados são os mesmos, o que eu queria era simplesmente com esta tela aberta copiar clicar em um botão importar e colar em meu banco de dados os campos (Num. Pedidos, Nome, Fone, Endereço, Bairro, Referência, CEP, Cidade/UF, Sanduíche, Pão, Queijo, Temperatura, + Recheio, + Queijo, Saladas, Condimentos, Molhos Especiais) como manipular as informações eu sei, só não sei como acessar as informações na página da Web, se por exemplo eu tivesse todo o texto dessa tela em uma string, mesmo embaralhado conseguiria extrair o que quero e colocar exatamente em cada campo a informação, ou se conseguisse extrair o nome dos campos no código html e tivesse como ir buscar as informações de cada um individualmente tbm daria certo, mais não sei como fazer referência a estes campos ou até mesmo como copiar este texto para uma string. Se tiver alguém que possa me ajudar agradeceria muito...
    Anexos
    Tela3.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (99 Kb) Baixado 16 vez(es)

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Capturar Dados da Web para Cadastro.

    Mensagem  Avelino Sampaio em Sex 05 Ago 2016, 08:26

    Olá!

    veja se este meu artigo te ajuda:

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Ednardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/11/2015

    Perfeito

    Mensagem  Ednardo em Sex 05 Ago 2016, 13:03

    Prefeito seu tópico, era exatamente o que eu precisava saber, só preciso setar o (objIE) para uma página web que já está aberta e não abri-la via código, pode me dizer o parâmetro? ou comando?

    Ednardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/11/2015

    Resolvido...

    Mensagem  Ednardo em Sab 06 Ago 2016, 15:08

    Obrigado, seu tópico foi a base de tudo, adaptei para o que precisava e achei a forma de setar o IE para uma página aberta pelo título da página e copiar seu código html para uma string e desta forma extrair o que quero, ficou da seguinte forma...

    Public Function MyHtml() As String

    Dim MyBrowser As SHDocVw.InternetExplorer
    Dim SWs As New SHDocVw.ShellWindows
    Dim IE As Object

    For Each MyBrowser In SWs
    If MyBrowser.LocationName = "SubDelivery - Sistema Integrado" Then
    Set IE = MyBrowser.Application
    MyHtml = IE.Document.All(0).InnerHTML
    End If
    Next

    End Function


      Data/hora atual: Sex 09 Dez 2016, 07:41