none
Exportar XML RRS feed

  • Pergunta

  • 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.
    segunda-feira, 1 de abril de 2019 15:35