- 01 Abr 2019 às 12:31
#42571
Olá a todos, estou com um problema ao exportar um .xml.
Criei um código para exportar vários arquivos .xml a partir de um modelo dado, também em .xml.
Porém, quando eu realizo a exportação, o arquivo final perde um namespace importante para mim.
O arquivo que ele gera possui esta estrutura:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<edificio xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="7.7.1" autorizacao="9e5634176375400cbfcf7f577ade9bcf" tipo="M">
<gravado>false</gravado>
.
.
.
</edificio>
Preciso que ele gere o seguinte:
<?xml version='1.0' encoding='UTF-8' standalone='yes' ?>
<edificio xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" versao="7.7.1" autorizacao="9e5634176375400cbfcf7f577ade9bcf" tipo="M">
<gravado>false</gravado>
.
.
.
</edificio>
O código vba utilizado é:
ActiveWorkbook.SaveAsXMLData Filename:= _
"C:\HPS\moradia" & a & "\" & "moradia" & a & ".xml", Map:= _
ActiveWorkbook.XmlMaps("edificio_Mapa")
Alguém poderia me ajudar a resolver isto?
Preciso urgentemente resolver este problema. Já tentei várias formas, mas nenhuma funcionou. Não posso alterar cada xml, já que a ideia da função é automatizar e criar centenas de xml, tornando a alteração manual inviável.
Criei um código para exportar vários arquivos .xml a partir de um modelo dado, também em .xml.
Porém, quando eu realizo a exportação, o arquivo final perde um namespace importante para mim.
O arquivo que ele gera possui esta estrutura:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<edificio xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="7.7.1" autorizacao="9e5634176375400cbfcf7f577ade9bcf" tipo="M">
<gravado>false</gravado>
.
.
.
</edificio>
Preciso que ele gere o seguinte:
<?xml version='1.0' encoding='UTF-8' standalone='yes' ?>
<edificio xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" versao="7.7.1" autorizacao="9e5634176375400cbfcf7f577ade9bcf" tipo="M">
<gravado>false</gravado>
.
.
.
</edificio>
O código vba utilizado é:
ActiveWorkbook.SaveAsXMLData Filename:= _
"C:\HPS\moradia" & a & "\" & "moradia" & a & ".xml", Map:= _
ActiveWorkbook.XmlMaps("edificio_Mapa")
Alguém poderia me ajudar a resolver isto?
Preciso urgentemente resolver este problema. Já tentei várias formas, mas nenhuma funcionou. Não posso alterar cada xml, já que a ideia da função é automatizar e criar centenas de xml, tornando a alteração manual inviável.
