Office: Mehrere XML-Dateien hintereinander in Excel einlesen

Hallo,

ich habe folgendes Problem. Ich habe einen Ordner mit ca. 1000 xml-Dateien der gleichen Struktur. Diese möchte ich gerne per vba mit Hilfe einer Schleife in eine Excel-Datei zusammenführen. Ich weiß leider nur nicht, wie ich das geschickt anstelle. Mit xml und vba kenne ich mich nicht so gut aus.

Kann mir vielleicht jemand weiter helfen?

Vielen Dank im Voraus!

 

Das wird so ohne weiteres wohl nix... Schau Dir mal so eine XML-Datei mit einem Text-Editor an. Du wirst sehen, daß sie, ähnlich wie HTML, so eine komische Block-Struktur haben, eigentlich eher eine Baum-Struktur. Du hast dann, (extrem vereinfacht) sowas in der Art:
<BUCH>
<KAPITEL>

Code:

[Buch]
  [Kapitel]
    [Seite]
      [Buchstaben]
      [Buchstaben]
      [Buchstaben]
      ...
    [Seite]
      [Buchstaben]
  ...
[/Buch]

Wenn Du die "zusammenstellen" willst, ist's wie im Bücherregal: Du hast dann zwar alle Bücher nebeneinander stehen, aber es sind weiterhin einzelne Bücher (so, wie die einzelnen Dateien in Deinem Verzeichnis). Einen Gesamt-Wälzer hast Du damit noch lange nicht.

Um die einzelnen Dateien wirklich zu einem Gesamt-Werk zusammenzustellen, müßte schon recht deutlich geklärt werden, welcher Ast der jeweiligen Datei an welche Stelle des Stamms im Gesamt-Werk gehängt werden soll. Und das bedeutet auch, daß ein komplettes Parsing der XML-Struktur vorgenommen werden muß.

Einfach nur untereinander kopieren hilft da nix. Es sei denn, genau nur das wäre die Forderung. Dann wäre es ein relativ simples Konstrukt aus 2 ineinander verschachtelten Schleifen, z.B. "FileSearch" und "Line Input" / "Print" bis Eof().

Gruß, Michael

 

Hallo,

falls Du die richtige Excel-Version hast, sollte das im Prinzip kein Problem sein, wie nachfolgender VBA-Code beweist.
Du musst nur in der Variablen Pfad$ den Pfad zum Verzeichnis/Ordner, der Deine XML-Dateien enthält, korrekt vorgeben (im Beispiel unten ist dies: "V:\EXCEL\text\"), ferner in der Variablen DateiMatch$ den Dateifilter für die gewünschten XML-Dateien, wobei * bzw. ? als Maskierungszeichen verwendet werden dürfen (im Beispiel unten: "Produkte*.xml", wodurch Dateinamen wie "Produkte123.xml", "ProdukteAB.xml", "ProdukteBA34.xml" etc. gefunden werden).
Ausgegeben wird das Ganze im aktiven Arbeitsblatt der aktive Arbeitsmappe ab Zelle A1 als linke obere Ecke, wobei diese Ecke auch noch angepasst werden kann, falls gewünscht.

Vorausgesetzt wird natürlich, dass die XML-Dateien wohlgeformt sind - ansonsten wird das Einlesen mit Fehlermeldung unterbrochen.
Die XML-Dateien werden im Code unten nicht gegen ein Schema validiert (ImportMap:=Nothing).

Da Du keine Angaben zu Deiner Excel-Version gemacht hast, gebe ich wider, was in der Excel-Hilfe meiner Excel2007-Version zu lesen ist:

Folgenden Code im VBA-Edior in ein allgemeines Codemodul kopieren:

Code:

Sub XML_Dateien_Einlesen()
'
    Dim Datei$, Pfad$, DateiMatch$
    Dim AnfZelle As Range, Wb As Workbook, Ws As Worksheet
    On Error Resume Next
    
    Set Wb = ActiveWorkbook
    Set Ws = Wb.ActiveSheet
    
    Set AnfZelle = Ws.Range("A1")  '<== Anfangszelle im aktiven Arbeitsblatt der aktiven Arb.Mappe
    
    Pfad$ = "V:\EXCEL\text\"       '<== Pfad zum Verzeichnis einstellen
    DateiMatch$ = "Produkte*.xml"  '<== Datei-Matching, um gewünschte Dateien zu filtern
    
    Datei$ = Dir(Pfad$ & DateiMatch$, vbNormal)
    
    Do Until Len(Datei$) = 0
       Wb.XmlImport [URL="http://www.office-hilfe.com/support/=Pfad$"]URL:=Pfad$[/URL] & Datei$, ImportMap:=Nothing, Overwrite:=True, Destination:=AnfZelle
       Datei$ = Dir()
       Set AnfZelle = AnfZelle.Offset(1)
    Loop
    
End Sub

Ausgeführt wird das Ganze, wenn Du im aktiven Arbeitsblatt die Tastenkombination Alt+F8 drückst mit anschließender EINGABE-Taste.