ERRO EM TEMPO DE EXECUCAO XML

LEANDROR10 10/05/2013 09:28:39
#423236

E ae galera, estou precisando de uma ajuda.

Estava usando o Windows 7 e o office 2010 e a função abaixo:


Dim xmlDoc As New MSXML2.DOMDocument50 [ô]O arquivo XML
Dim listaNodeItens As IXMLDOMNodeList [ô]Lista de nós (.hasChildNode, .nodename)
Dim nodeXML As IXMLDOMElement

Dim CaminhoArquivoXML As String
CaminhoArquivoXML = [Ô]C:\XML[Ô] & n_arquivo.Text & [Ô].xml[Ô]
acesso.MoveNext
[ô]Carrega o arquivo XML
xmlDoc.async = Falsez
xmlDoc.Load CaminhoArquivoXML
On Error GoTo erronoxml:
Set nodeXML = xmlDoc.SelectSingleNode([Ô]//natOp[Ô]).
q = nodeXML.SelectSingleNode([Ô]//natOp[Ô]).Text

Estava funcionado perfeitamente, mais quando coloquei o Windows 8 e o Office 2013 tive que alterar a primeira linha para: Dim xmlDoc As New MSXML2.DOMDocument60 [ô] para arquivo XML
uma versão mais atualizada, assim quando chega na lina [ô]q = nodeXML.SelectSingleNode([Ô]//natOp[Ô]).Text [ô] para puxar o valor do XML dá erro no tempo de execução [ô]91[ô] A variável do objeto ou a variável do bloco [Ô]with não foi definida[ô].