Erro ao importar XML

Amigos.. nesta rotina de importação de arquivo XML.. este código funcioa perfeitamente..
Porem neste arquivo em anexo.. ele não executa o loop pelas linhas do XML

O que poder ser?

Obrigado

https://dl.dropboxusercontent.com/u/26441349/Base%20dados%20SAC.rar

O código está lendo o arquivo integral dentro da variável strLinha, provavelmente o arquivo está sem os caracteres de final de linha.

Será erro ao gerar o arquivo?

Há como corrigir isso amigão?

Eu havia percebido que está todo o texto na string...


Cumprimentos.

Não diria que foi um erro ao gerar o arquivo, mas certamente esse layout vai complicar a importação.

Não vislumbro uma forma de corrigir isso automaticamente, sem ter que digitar Enter para gerar os saltos de linha no arquivo.
A não ser que exista no arquivo uma sequência de caracteres que corresponda a um salto de linha.

Boas Claudio... Faça um teste por gentileza.. Retire o linha do comando

Line Input #1, strLinha


Coloque apenas o input... Aqui parece-me que funcionou.

Input #1, strLinha

Cumprimentos.

Não importou tambem... Fica totalmente desconexo o loop

Cumprimentos.

A variável strLinha continua errada e o código não encontra nenhuma das opções válidas no If... Then... ElseIf...

Observe que a tabela "Enviado" não é preenchida, pois o texto "ansTISS:valorTotal" nunca é encontrado na posição esperada.

Realmente.. este xml em particular está com algum tipo de discrepância..
Eu havia feito isto para um cliente.. porém os xml's que ele havia me enviado dava certo... Agora neste não funciona...

Cumprimentos.