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

    [Resolvido]VBA Consulta Pagina WEB - Consulta CID (doenças)

    Compartilhe

    rasd
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 4
    Registrado : 11/03/2013

    [Resolvido]VBA Consulta Pagina WEB - Consulta CID (doenças)

    Mensagem  rasd em 16/5/2018, 15:41

    Bom dia pessoal,

    estou fazendo um sistema em access para cadastro de atestado médico.

    ja esta tudo pronto, mas estou querendo consultar o codigo CID no site e trazer a descrição do mesmo.

    o site:
    Código:
    http://www.cid10.com.br/code

    so que eu ja forneço o endereço ja com o codigo desejado

    exemplo:
    Código:
    http://www.cid10.com.br/buscacode?query=A001

    e ai ele abre de boa e ai eu tenho o codigo:

    Código:
    Sub Consulta_CID10()

            Dim teste_1, teste_2
            Dim tabela As Object
            Dim linha
            Dim Codigo, Descricao, Referencias As String
            
            Set ie = CreateObject("InternetExplorer.application")

            ie.navigate ("http://www.cid10.com.br/buscacode?query=A001")
            ie.Visible = True
                    
    Set tabela = ie.Document.all.tags("table")(0)
        For Each linha In tabela.all.tags("tr")
            Codigo = linha.all.tags("td")(0).innertext
            Descricao = linha.all.tags("td")(1).innertext
            Referencias = linha.all.tags("td")(2).innertext
                    
        Next linha
            
        Exit Sub

    Só que a primeira linha é cabeçalho e a referencia não é td e sim th e ai ele da erro, se mover para a próxima linha ai ele já da certo e trás a informação. mas não estou conseguindo fazer ele mover para a próxima linha direto e não erro e pegar a informação que preciso.

    se abrir o código da pagina, tem a informação que eu preciso também no começo no meta name, não sei qual é mais fácil extrair a informação.

    Quem souber e puder dar um help ai.

    muito obrigado
    avatar
    rfnunes01
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/09/2016

    Re: [Resolvido]VBA Consulta Pagina WEB - Consulta CID (doenças)

    Mensagem  rfnunes01 em 17/5/2018, 16:18

    Ola amigo
    Disponibilese uma parte do seu bd para darmos uma olhada para te ajudar


    .................................................................................
    Richael Fernando Nunes
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]VBA Consulta Pagina WEB - Consulta CID (doenças)

    Mensagem  FabioPaes em 17/5/2018, 17:21

    Faça um Teste com esse Código aqui:

    Código:
    Dim objIE As Object
    Dim tbl As Object
    Dim trs As Variant
    Dim Codigo, Descricao, Referencias As String
           
    Set ie = CreateObject("InternetExplorer.application")

    ie.navigate ("http://www.cid10.com.br/buscacode?query=005") 'B001
    ie.Visible = False
    'Checa se a Página Já Está Carregada
    Do While ie.Busy: DoEvents: Loop
    Do While ie.ReadyState <> 4: DoEvents: Loop
                   
    Set tbl = ie.Document.getElementsByTagName("table")(0)
    Set trs = tbl.getElementsByTagName("tr")
        For r = 1 To trs.Length - 2
            Debug.Print trs(r).getElementsByTagName("td")(0).innerText & "|" & trs(r).getElementsByTagName("td")(1).innerText & "|" & trs(r).getElementsByTagName("td")(2).innerText
        Next
    ie.Quit
    Set objIE = Nothing
    MsgBox "Consulta Terminada"

    Obs: Os dados estarão no VB, na janela Imediata


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    rfnunes01
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/09/2016

    Re: [Resolvido]VBA Consulta Pagina WEB - Consulta CID (doenças)

    Mensagem  rfnunes01 em 18/5/2018, 03:46

    Grande  FabioPaes tu és fera em

    Aqui esta um exemplo do BD com o código do nosso amigo FabioPaes
    Anexos
    ConsultaCID.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 22 vez(es)


    .................................................................................
    Richael Fernando Nunes

    rasd
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 4
    Registrado : 11/03/2013

    Re: [Resolvido]VBA Consulta Pagina WEB - Consulta CID (doenças)

    Mensagem  rasd em 23/5/2018, 15:12

    Show de bola pessoal.... muito obrigado.

    Com essa informação já consigo deixar do jeito que eu preciso.

    Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile Smile

      Data/hora atual: 19/11/2018, 03:39