Hi,

ich benötige die Bankleitzahldatei der EU Zentralbank in XML Form. Diese kann man von der EU Zentralbank Seite nur in Text oder Excel Form runterladen.

Wenn jemand weis wo man so eine kriegt wäre ich sehr dankbar, ansonsten kommen wir zu dem Problem.

Ist es möglich die o.g. Datei irgendwie als XML aus Excel zu exportieren. Es müsste irgendwie automatisiert ablaufen, also dass man einfach die Datei erst einmal runterlädt und das System es dann automatisch in XML umwandelt, damit man anschließend mit der Datei weiterarbeiten kann.

Kennt da jemand eine Möglichkeit der Umwandlung von Excel nach XML?

Datei - Speichern unter - Dateityp: XML

Kennt da jemand eine Möglichkeit der Umwandlung von Excel nach XML?

ich denke da in erster linie an ein VBA-makro. es handelt sich ja vermutlich nur um zwei relevante felder, nämlich BLZ und instituts-/filialname.

s'Amstel

Wenn man es als XML abspeichern will sagt er, dass das Dokument keine XML Merkmale besitzt und bricht ab.

Genau so etwas wie ein Makro brauche ich, vielleicht eine kurze Erläuterung warum:

Die Datei soll in ein Programm importiert werden als XML. Aus dem Programm heraus kann ich auf VBA zugreifen, bzw. ich kann auf die Excel Funktionen usw. zugreifen. Jetzt kommt die Überlegung das ganze zu automatisieren und bereits beim Runterladen bzw. gleich danach die Excel Datei in eine XML Datei umzuwandeln, irgendwo abzulegen und letztendlich natürlich auch in die Datenbank zu importieren.

Die Datei als XML abzuspeichern ist dabei leider keine brauchbare Lösung, da es nur ein extra Schritt mehr bedeutet und das ganze durch einen Knopfdruck automatisch ablaufen soll.

>

... die Excel Datei in eine XML Datei umzuwandeln, irgendwo abzulegen und letztendlich natürlich auch in die Datenbank zu importieren.

Hallo,

um was für eine DB geht es eigentlich?

Ansonsten versuchs mal damit:

Sub Dateiexport()

'falls die Zieldatei noch nicht vorhanden ist,

'wird sie erstellt

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 20 Zeilen der Tabelle reinschreiben

'Spalte A = Blz, Spalte B = Institut

For Zeile = 1 To 20

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