Visual Basic <Código vba em relação xml numa condicional IF>

[levi feirreira]

Boa noite pessoal, tudo bem ?

 

<Poderia me auxiliar com este código em anexo?

 

Preciso que a condicional seja atendida. Percebo que quando não tem a tag name IE por exemplo no xml logo o valor vem como "0" e dar erro por não ter a tag, gostaria de um jeito para quando não tiver a tagname ignorar ou que a condicional abaixo seja atendida :

 

 If xmlNode.SelectSingleNode("IE")(0).Text > 0 Then
       strIE = " ' " & xmlNode.SelectSingleNode("IE").Text
End If

 

 

Segue código mais completo:

 

For Each xmlNode In xmlDoc.getElementsByTagName("transporta")

       strxNome = xmlNode.SelectNodes("xNome")(0).Text
       strCNPJTrsnp = "'" & xmlNode.SelectNodes("CNPJ")(0).Text

If xmlNode.SelectSingleNode("IE")(0).Text > 0 Then
       strIE = "'" & xmlNode.SelectSingleNode("IE").Text
End If>

 

 

 

strxEnder = xmlNode.SelectNodes("xEnder")(0).Text & " | "
strxMun = xmlNode.SelectNodes("xMun")(0).Text & " | "
strUF = xmlNode.SelectNodes("UF")(0).Text & " | "

 

Varre = strxEnder & strxMun & strUF

 

Next

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[Midori]

Se o objeto não tem uma função para testar se o nó existe, você pode usar a instrução On Error Resume Next para não interromper o código em caso de erro.

[levi feirreira]

Perfeito Midori, conseguir usar on erro quando tem o nó. Quando o nó não existir tem como por condicional para isso?

 

pois se o nó não existe, logo a sintaxe vem como " 0 ", seria bom se na condicional ele identificasse : se for maior que 0 faça isso, caso contrário faça aquilo

[Midori]

15 minutos atrás, levi feirreira disse:

Quando o nó não existir tem como por condicional para isso?

 

Você pode testar o retorno do código do erro e fazer algo assim,

 

On Error Resume Next

...

strIE = "'" & xmlNode.SelectSingleNode("IE").Text

If Err.Number <> 0 Then
    MsgBox "Erro"
End If

 

Aí vai mostrar a mensagem no caso do erro.

[levi feirreira]

Perfeito Midori, funcionou , muito obrigado. Deus abençoe sempre.