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

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

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

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

Grande  FabioPaes tu és fera em

Aqui esta um exemplo do BD com o código do nosso amigo FabioPaes

Show de bola pessoal.... muito obrigado.

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