Descobrir número de nós em XML com VBA

Arquivo XMLAprenda a desenvolver sistemas com o curso online de access 2007.

Após aprender a ler um arquivo XML com VBA. É importante também descobrir o número de nós filhos presentes em um nó.

Esta dica é importante, pois a leitura de um nó vazio causa um erro no sistema, e você não vai querer que seu usuário fique vendo uma tela de erro não é mesmo?

A seguir então um código simples, auto explicativo para que você descubra o número de nós em uma XML em VBA.

Conseguindo o número de nós de um XML

Dim xmlDOM As DOMDocument

Dim objNodes As IXMLDOMNodeList

Dim qtde_media As Integer

‘O objeto DOMDocument deve ser usado para manipular dados XML:

Set xmlDOM = CreateObject(“MSXML2.DOMDocument”)

xmlDOM.async = False

‘Carrega o arquivo especificado para o objeto

DOMDocument: xmlDOM.Load “Arquivo.xml”

Set objNodes = xmlDOM.SelectNodes(/smil/body/seq/media)

qtde_media = objNodes.Length

Caro leitor, o que você achou do código para descobrir a quantidade de nós em um XML? Deixe seu comentário e compartilhe este artigo nas redes sociais!

Autor: Matheus Pellizzaro

Matheus é formado em sistemas de Informação pela UDESC, desenvolve sistemas e páginas de internet para empresas e pessoas físicas nas "horas vagas". Maiores detalhes em www.tecnozen.com.br