LER VERSÃO DO XML

SAMESDAVIS 19/12/2014 09:35:43
#443308
Olá pessoal,

Preciso saber como faço para identificar a versão do arquivo XML

Dim XML As DOMDocument
Dim xmlElem As IXMLDOMNode
Dim mVersaoXML As String

Set XML = New DOMDocument
XML.Load (sFile)
XML.async = False

Set xmlElem = XML.SelectNodes([Ô]/nfeProc/NFe/infNFe[Ô]).Item(lngItem).FirstChild
mVersaoXML = xmlElem.NodeValue

Está retornando nulo


preciso de saber se o arquivo XML é da versão [Ô]2.0[Ô] ou [Ô]3.10[Ô]
NILSONTRES 19/12/2014 13:18:02
#443315
Eu leio via dataset, e fica assim:
Dim DS As New DataSet

DS.ReadXml(V_ARQXML)
Dim _Versao As String = DS.Tables(0).Rows(0)(DS.Tables(0).Columns.Item(1).ColumnName).ToString
SAMESDAVIS 19/12/2014 13:41:58
#443316
Olá Nilson, estou precisando em VBA e não em VB.NET
FILMAN 19/12/2014 14:52:50
#443317 Resposta escolhida
Dim i As Integer
Dim XML As DOMDocument
Dim mVersaoXML As String

Set XML = New DOMDocument
XML.Load (sFile)
XML.async = False

For i = 0 To XML.selectSingleNode([Ô]/nfeProc/NFe/infNFe[Ô]).Attributes.Length - 1
If LCase(XML.selectSingleNode([Ô]/nfeProc/NFe/infNFe[Ô]).Attributes(i).nodeName) = [Ô]versao[Ô] Then
mVersaoXML = XML.selectSingleNode([Ô]/nfeProc/NFe/infNFe[Ô]).Attributes(i).Value
Exit For
End If
Next
SAMESDAVIS 19/12/2014 15:19:14
#443318
Muito obrigado
Problema resolvido, tópico encerrado.
Tópico encerrado , respostas não são mais permitidas
Voltar