XML VBA

EDSONC 23/09/2013 12:11:27
#429165
Alguém saberia como resolver a duplicidade do xmlns=[Ô][Ô] quando criamos o nó filho? em vba
EDSONC 24/09/2013 10:13:57
#429194
Alguém sabe como posso tirar o atributo xmlns=[Ô][Ô] como podem obsevar no trecho de código ele não está , mas quando gera o xml ele aparece.



Set wst = Worksheets([Ô]Criar_Novo_XML[Ô])
Set objDom = New DOMDocument60

[ô]Cabeçalho
objDom.appendChild objDom.createProcessingInstruction([Ô]xml[Ô], [Ô]version=[ô]1.0[ô] encoding=[ô]UTF-8[ô][Ô])
[ô]Criar nfeProc
Set objnfeProcElem = objDom.createElement([Ô]nfeProc[Ô])
objDom.appendChild objnfeProcElem
objnfeProcElem.setAttribute [Ô]versao[Ô], [Ô]2.00[Ô]
objnfeProcElem.setAttribute [Ô]xmlns[Ô], [Ô]http://www.portalfiscal.inf.br/nfe[Ô]
[ô]Criar NFe
Set objNfeElem = objDom.createElement([Ô]NFe[Ô])
objnfeProcElem.appendChild objNfeElem
objNfeElem.setAttribute [Ô]xmlns[Ô], [Ô]http://www.portalfiscal.inf.br/nfe[Ô]
[ô]Criar infNFe
idNFe = [Ô]NFe[Ô] & wst.Range([Ô]AG37[Ô]) [ô]Dados id NF
Set objinfNFeElem = objDom.createElement([Ô]infNFe[Ô])
objNfeElem.appendChild objinfNFeElem
objinfNFeElem.setAttribute [Ô]Id[Ô], idNFe
objinfNFeElem.setAttribute [Ô]versao[Ô], [Ô]2.00[Ô]



arquivo gerado ele aparece isso: xmlns=[Ô][Ô] como consigo tirar esse atributo?

<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô]?>
-<nfeProc xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]2.00[Ô]>

-<NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>

-<infNFe xmlns=[Ô][Ô] versao=[Ô]2.00[Ô] Id=[Ô]NFexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx[Ô]>
Faça seu login para responder
Voltar