Vídeo recomendado
https://youtu.be/diWPPPhW-9E

XML - COMO EXPORTAR XML MAPEADO

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
LuizFeijo
Colaborador
Colaborador
Mensagens: 26
Registrado em: Dom Nov 18, 2018 6:08 pm

XML - COMO EXPORTAR XML MAPEADO

Mensagem por LuizFeijo »

Olá amigos, meu problema é simples, como consigo exportar ou salvar como XML um arquivo xml que eu fiz o mapeamento, alterei um valor e agora preciso salva-lo em xml novamente?
toda vez que tento salvar, diz: não é possivel salvar ou exportar dados xml. os mapas xml desta pasta de trabalho não são exportaveis.
eu estou manipulando Notas Fiscais, ai preciso alterar uns valores, mas nao consigo salvar!
Agradecido.
Anexos
xml.rar
(7.32 KiB) Baixado 243 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


daavmendonca
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Sex Abr 12, 2019 4:08 pm

Re: XML - COMO EXPORTAR XML MAPEADO

Mensagem por daavmendonca »

Boa tarde Luiz,
Abaixo estou utilizando a biblioteca "Microsoft XML, v3.0" para fazer a leitura do arquivo XML,
O codigo abaixo carrega o arquivo, atualiza o valor da Tag "cUF" e salva o XML atualizado no diretório "C:\temp\" com o nome "teste.xml" ...acredito que esse código te ajude:

Sub Atualiza_Xml()

Dim oDomDoc As MSXML2.DOMDocument30
Set oDomDoc = New MSXML2.DOMDocument30

'Carrega o arquivo XML Original
If Not oDomDoc.Load("Caminho Completo do Seu XML") Then  'Exemplo C:\Temp\NotaFiscal.xml'
    Set oDomDoc = Nothing
End If

'Selecionar o Nó que pretende alterar o valor
oDomDoc.SelectSingleNode("//infNFe/ide/cUF").Text = "35"

'Salva o arquivo após atualização do campo "cUF"
oDomDoc.Save ("C:\temp\teste.xml")

End Sub


Responder