XML als Unicode speichern
18.05.2019 12:57:25
Patrick
Ich möchte ein xml File mit VBA erstellen. Das klappt eigentlich recht gut. Nur muss das File als uuencoded gespeichert werden und ich weiss nicht wie ich das machen kann.
Kann mir jemand auf die Sprünge helfen?
Sub XML_Export()
'** Excel-Inside Solutions - (C) 2015 *
'** Dimensionierung der Variablen
Dim strFile As String, Text As String
Dim lngRow, lngCol As Long
Dim varShow
'** Errorhandling
On Error GoTo Fehlermeldung
'** XML-Dateipfad und -Name festlegen
strFile = ThisWorkbook.Path & "\test.xml"
'** Datei (ASCII) öffnen
Open strFile For Output As #1
'** XML-Header schreiben
Print #1, " "
Print #1, ""
'** Mit Schleife die ersten 3 Spalten der Tabelle schreiben
For lngRow = 6 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'** Schreiben Datensatz-Beginn
Print #1, "" 'Tag Anfang
'** Schreiben der Felder (Spalten A-C)
Print #1, "" & Cells(lngRow, 1) & " "
Print #1, "" & Cells(lngRow, 2) & " "
Print #1, "" & Cells(lngRow, 3) & " "
'** Schreiben Datensatz-Ende
Print #1, " "
Next lngRow
'** Daten-Tag schließen
Print #1, " "
'** XML-Datei schließen
Close #1
'** Aufruf des Editors mit der geschriebenen xml-Datei
varShow = Shell(Environ("windir") & "\notepad.exe " & strFile, 1)
Exit Sub
'** Errorhandling
Fehlermeldung:
Close #1
MsgBox "Fehler-Nr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub
Anzeige