VBA-Beispiel 096
mail schreiben
mail schreiben

per VBA Tabelleninhalt nach XML-Datei exportieren

Erstellt aus den Daten einer Tabelle eine XML-Datei im gleichen Verzeichnis.
Sub XML_Export()
Dim Datei As String, Text As String
Dim Zeile As Long
Dim zeigen

On Error GoTo Hell

'Zieldatei festlegen
Datei = ThisWorkbook.Path & "\test.xml"

Open Datei For Output As #1     'Zieldatei öffnen

'reinschreiben
Print #1, "<?xml version=""1.0""  encoding=""UTF-8"" standalone=""yes""?> "
Print #1, "<daten>"
Print #1, "<titel>Bankleitzahlen</titel>"

'mit Schleife die ersten 5 Zeilen der Tabelle reinschreiben
'Spalte A = Blz, Spalte B = Institut
For Zeile = 1 To 5
  Print #1, "<datensatz>"
  Print #1, "<blz>" & Cells(Zeile, 1) & "</blz>"
  Print #1, "<institut>" & Cells(Zeile, 2) & "</institut>"
  Print #1, "</datensatz>"
Next Zeile

Print #1, "</daten>"

Close #1     'Zieldatei schließen

zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)

Exit Sub

Hell:
Close #1
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub

Download:   vba096.zip