Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 21
Registrado em: Dom Nov 18, 2018 6:08 pm

XML - COMO EXPORTAR XML MAPEADO

Mensagem por LuizFeijo » Dom Fev 17, 2019 4:27 pm

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 43 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 » Sex Abr 12, 2019 4:15 pm

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