ERRO AO ABRIR XLM ONLINE!

 Tópico anterior Próximo tópico Novo tópico

ERRO AO ABRIR XLM ONLINE!

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#439315 - 02/07/2014 12:07:13

SOUZA
NOVA FATIMA
Cadast. em:Novembro/2009


 Anexos estao visíveis somente para usuários registrados

Pessoal estou tendo problemas com um erro exporadico quando vou buscar os dados do arquivo xlm que pego da caixa para resultado da loto mania!

Tem vezes que eu entro e blz certinho ai se eu entro denovo ele gea erro na leitura do primeio campo. segue imagem do erro.

Este é o cidog que utilizo para exibir os dados.

Dim enderecoUrl As String
Dim arquivoXml As String

enderecoUrl = "http://developers.agenciaideias.com.br/loterias/lotomania/xml"
  
With Inet2
    
.AccessType = icDirect
  
    .Proxy = ""
    
    .Protocol = icHTTP
    
    arquivoXml = .OpenURL(enderecoUrl)
End With

Dim oDom As DOMDocument

Set oDom = New DOMDocument
  
  With oDom
    
    .loadXML arquivoXml
    'Cabeçario
    
    'Concurso e Data
    Text1.Text = .childNodes(1).childNodes(0).childNodes(0).Text - Quando ele da erro é nessa linha!
    Text2.Text = .childNodes(1).childNodes(1).childNodes(0).Text
    
    'Proximo sorteio
    Text3.Text = .childNodes(1).childNodes(2).childNodes(0).Text
    Text4.Text = .childNodes(1).childNodes(0).childNodes(1).Text
    Text5.Text = .childNodes(1).childNodes(1).childNodes(1).Text
    
End With
Inet2.Execute , "CLOSE"

se puderem me dar uma luz adradesso.




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por SOUZA em 25/07/2014 20:22:03