Leitura de arquivo xml

[AlexandreGontijo 0]

Tenho o seguinte xml abaixo :<cadastro> <ESCOLA SEQ_ESC="6805"> <aluno>344</aluno> <cor_raca>1</cor_raca> <aluno>345</aluno> <cor_raca>2</cor_raca> <aluno>5343</aluno> <cor_raca>3</cor_raca> </ESCOLA> <ESCOLA SEQ_ESC="6806"> <aluno>53</aluno> <cor_raca>4</cor_raca> <aluno>355</aluno> <cor_raca>2</cor_raca> <aluno>644</aluno> <cor_raca>3</cor_raca> </ESCOLA> </cadastro> meu programa : Dim ObjXML As DOMDocument Set ObjXML = New DOMDocument Dim Node As IXMLDOMNode Dim CaminhoArquivoXML As String CaminhoArquivoXML = "C:CorRacaAluno.xml" If Not ObjXML.Load(CaminhoArquivoXML) Then 'Nao conseguiu ler o arquivo xml MsgBox "O arquivo " & CaminhoArquivoXML & " não foi encontrado portanto a atualização de Cor e Raça não será realisada", vbInformation Exit Sub End If agora preciso ler na seguinte sequencia : ESCOLA campo SEQ_ESC, ALUNO, COR_RACA Como faço ???

[Graymalkin 0]

Assim:

 

Dim nóCadastro As IXMLDOMNodeDim nóESCOLA As IXMLDOMNodeDim nó As IXMLDOMNodeSet nóCadastro = ObjXML.selectSingleNode("cadastro")For Each nóESCOLA In nóCadastro.childNodes	Debug.Print nóESCOLA.Attributes.getNamedItem("SEQ_ESC").Text	For Each nó In nóESCOLA.childNodes		Debug.Print nó.Text	NextNext nóESCOLA

Certo? ;)

 

Graymalkin