XML Export Datei überschreiben
25.10.2020 18:59:33
Wolle
Möchte gerne einen XML Export aus Excel heraus machen.
Das funktioniert auch soweit tadellos, aber wenn die Datei bereits vorhanden ist, bleibt das Makro ActiveWorkbook.XmlMaps("PROJECT_Zuordnung").Export Url:= _
ThisWorkbook.Path & "\Projekt_Details.xml" stehen und es kommt auch keine Fehlermeldung.
Was muss ich in dem Makro hinterlegen, damit die Datei ohne Nachfragen überschrieben wird?
Hier das Makro:
Sub Export()
' Export Makro
Sheets("Annexus").Select
Columns("C:C").Select
Selection.Replace What:="\\", Replacement:="\", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Sheets("Abfrage").Select
Dim pfad As String
pfad = ThisWorkbook.Path
ActiveWorkbook.XmlMaps("PROJECT_Zuordnung").Export Url:= _
ThisWorkbook.Path & "\Projekt_Details.xml"
End Sub
Vielen Dank an alle.
Gruß Wolle