edsonc

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">

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">

Pessoal, Bom dia, Fiz um procedimento onde acesso o site pelo VBA Excel para pegar dados de uma tabela,porém a url tem mais de uma página.Existe alguma propriedade ou método que eu possa identificar as demais páginas, atualmente os dados só vem da primeira página as demais não consigo pegar. abs, Segue parte do código,precisaria achar um meio de colocar no for as demais páginas, sendo que essas páginas podem variar de acordo com a informação, em um dia posso ter 10 páginas em outro pode ter 12 ou 13 etc... Option Explicit Sub Importar_Excel() Dim elemCollection As Object Dim t As Integer Dim r As Integer, c As Integer Set wsh = Worksheets("Plan1") Set elemCollection = ie.document.getElementsByTagName("TABLE") For t = 0 To elemCollection.Length - 1 For r = 0 To elemCollection(t).Rows.Length - 1 For c = 0 To elemCollection(t).Rows®.Cells.Length - 1 wsh.Cells(r + 1, c + 1) = elemCollection(t).Rows®.Cells©.innerText Next c Next r Next t End Sub