Pesquisar na Comunidade

Bom dia pessoal, será que alguém pode me dizer onde estou errando ao gerar uma arquivo xml, pois o atributo xmlns esta sendo duplicado, preciso remove-lo, se alguém puder me ajudar agradeço muito. abaixo o código. Dim XML As New DOMDocument60 Dim Cabec, CampoDoNo As IXMLDOMElement Dim ide, cUF, cNF, natOp, Modelo, Serie, nNF As IXMLDOMElement Dim nfeproc As IXMLDOMElement Dim NFe As IXMLDOMElement Dim infNFe As IXMLDOMElement ' Set XML = New DOMDocument60 XML.async = False XML.validateOnParse = True XML.resolveExternals = False XML.preserveWhiteSpace = True Set nfeproc = XML.createElement("nfeProc") 'Abre o primeiro nó. XML.appendChild nfeproc ' nfeproc.setAttribute "versao", "4.00" nfeproc.setAttribute "xmlns", "http://www.portalfiscal.inf.br/nfe" 'Criar NFe Set NFe = XML.createElement("NFe") nfeproc.appendChild NFe NFe.setAttribute "xmlns", "http://www.portalfiscal.inf.br/nfe" ' Set infNFe = XML.createElement("infNFe") NFe.appendChild infNFe infNFe.setAttribute "Id", id infNFe.setAttribute "versao", "4.00" ' Set Cabec = XML.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'") XML.insertBefore Cabec, nfeproc XML.save ("c:\NFE.xml") 'Salva no local especificado. veja como fica o xml <?xml version="1.0" encoding="UTF-8"?> -<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00"> -<NFe xmlns="http://www.portalfiscal.inf.br/nfe"> -<infNFe xmlns="" versao="4.00" Id="NFe521905109735850001805510000000001000000017"> -<ide> <cUF>52</cUF> Preciso remover este xmlns >---> -<infNFe xmlns="" versao="4.00" Id="NFe521905109735850001805510000000001000000017"> Desde já agradeço.

Amigos, boa tarde. Preciso enviar o XML para o WebService do SPC, mais ele precisa de usuário e senha para autenticar. Eu consigo testar pelo SoapUI sem problemas. Tenho o código abaixo, mais não estou sabendo onde informar o usuário e senha nos fontes do VB6. - Criando os Objetos DOMDocument e XMLHTTP Set objDom = CreateObject("MSXML2.DOMDocument") Set objXmlHttp = CreateObject("MSXML2.XMLHTTP") - Carregar o XML objDom.async = False objDom.LoadXml XmlBody - Abra a conexão do serviço da Web objXmlHttp.open "POST", AsmxUrl, False - Criando o cabeçalho XML objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" objXmlHttp.setRequestHeader "SOAPAction", SoapActionUrl - Enviando o comando para abrir a solicitação XML objXmlHttp.send objDom.xml Por favor, alguém pode me ajudar. Grato.