XML Exportieren - Zuordnung stimmt nie
08.11.2017 14:08:33
Manuela
ich importiere eine xml Datei, bearbeite sie und expotiere sie. Dies wollte ich jetzt etwas Automisieren.
Das Problem ist das die XML-Quellen Zuornung sich bei jedem Impotieren ein hoch zählt, somit stimmt mein Code für den Export nicht mehr.
Kann mir bitte jemand helfen, suche schon seit einer stunde.
Sub xml_import()
' xml_import Makro
'Lösche alle Zellen
Range("A:B").ClearContents
With ActiveWorkbook.XmlMaps("Root_Zuordnung")
.ShowImportExportValidationErrors = True
.AdjustColumnWidth = True
.PreserveColumnFilter = True
.PreserveNumberFormatting = True
.AppendOnImport = True
End With
ActiveWorkbook.XmlImport URL:="C:\Users\\Desktop\Test.xml" _
, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1") 'Import XML ab Zeile _
_
1
End Sub
Und hier der zum Export:
Sub XML_Export()
' Speichern unter Funktion
ChDir "C:\Users\Desktop"
ActiveWorkbook.SaveAsXMLData Filename:= _
"C:\Users\Desktop\Test.xml", Map:=ActiveWorkbook.XmlMaps("Root_Zuordnung")
'Excel Speichern
ActiveWorkbook.Save
End Sub