XML in Excel via VBA

Forumthread: XML in Excel via VBA

04.03.2020 10:02:46

Thorben

Guten Tag. Ich habe in meinem Praktikum eine Aufgabe bekommen bei der ich seit mehreren Tagen ein größeres Problem habe. Da mir keiner in der Abteilung helfen kann dachte ich, ich frage mal hier.
So zur Aufgabenstellung.
Ich soll einen Button in ein Tabellenblatt einfügen mit dem ich mehrere XML Dateien oder gleich einen ganzen ordner voll mit XML Datein in eine einzelne Tabelle einfügen kann. Quasi genau das was der Import Button von Excel selbst auch macht (Dieser button ist allerdings keine Option da es für Kunden der Firma kompliziert sein könnte diesen einzurichten).
Ich habe mittlerweile schon ein bisschen im Netz gesucht und denke ich auch einen guten ansatz gefunden, leider fügt der VBA code die XML dateien aber in unterschiedliche Tabellen auf dem selben Blatt. Das kann ich aber leider für die weitere Daten verarbeitung nicht gebrauchen.
Habt ihr vllt eine Lösung für mein Problem?
Danke schon mal im Vorraus für jede Antwort

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: XML in Excel via VBA

04.03.2020 10:20:03

Armin

Infobox / Tutorial

XML in Excel via VBA: So importierst du mehrere XML-Dateien in eine Tabelle

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
Neues Modul einfügen: Klicke mit der rechten Maustaste auf dein Projekt im Projektfenster, wähle Einfügen und dann Modul.

VBA-Code einfügen: Kopiere den folgenden Code in das Modul:

Sub ImportXMLFiles()
   Dim xmlFile As Variant
   Dim folderPath As String
   Dim xmlDoc As Object
   Dim ws As Worksheet
   Dim lastRow As Long

   ' Ordnerpfad festlegen
   folderPath = "C:\Dein\Ordner\Pfad\" ' Pfad zu deinem XML-Ordner

   ' Arbeitsblatt festlegen
   Set ws = ThisWorkbook.Sheets("Tabelle1") ' Tabelle in die importiert werden soll

   ' XML-Dateien aus dem Ordner einlesen
   xmlFile = Dir(folderPath & "*.xml")
   Do While xmlFile <> ""
       Set xmlDoc = CreateObject("MSXML2.DOMDocument")
       xmlDoc.Load folderPath & xmlFile

       ' Hier kannst du die Logik hinzufügen, um die Daten zu extrahieren
       lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
       ws.Cells(lastRow, 1).Value = xmlDoc.DocumentElement.SelectSingleNode("//DeinXPathNode").Text ' Beispiel für den XPath

       xmlFile = Dir
   Loop
End Sub

Code anpassen: Ändere den folderPath und den XPath im Code gemäß deinen Anforderungen.
Button zur Ausführung hinzufügen: Füge einen Button in dein Excel-Blatt ein und verlinke ihn mit der ImportXMLFiles-Subroutine.
Code ausführen: Klicke auf den Button, um die XML-Dateien in Excel zu importieren.

Häufige Fehler und Lösungen

Fehler beim Laden der XML-Datei: Stelle sicher, dass der Pfad zur XML-Datei korrekt ist und die Datei im richtigen Format vorliegt.
Daten werden in mehreren Blättern abgelegt: Überprüfe den Code und stelle sicher, dass die Daten in die richtige Tabelle geschrieben werden, wie im obenstehenden Beispiel gezeigt.
Leere Zellen nach dem Import: Überprüfe den XPath, um sicherzustellen, dass du die korrekten Knoten aus der XML-Datei abfragst.

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du auch die integrierte Funktion zum Importieren von XML-Dateien in Excel nutzen:

Daten > Aus anderen Quellen > Aus XML-Datenquelle auswählen.
Den Pfad zur XML-Datei angeben und die Daten importieren.
Diese Methode unterstützt jedoch nicht den Import mehrerer XML-Dateien gleichzeitig.

Praktische Beispiele

Importiere eine XML-Datei mit Kundendaten: Verwende den XPath, um spezifische Kundendaten aus der XML-Datei auszulesen und in deine Excel-Tabelle zu übertragen.
Mehrere XML-Dateien von einem Server einlesen: Implementiere eine Schleife, die alle XML-Dateien von einem bestimmten Server abruft und in dein Excel-Dokument importiert.

Tipps für Profis

Erweitere den Code: Füge Fehlerbehandlungen hinzu, um den Code robuster zu machen.
Nutze Arrays: Wenn du große Datenmengen importierst, kann die Verwendung von Arrays die Performance verbessern.
Dokumentation: Halte deinen Code gut dokumentiert, um später Anpassungen vorzunehmen.

FAQ: Häufige Fragen

1. Wie kann ich eine XML-Datei in Excel umwandeln?
Du kannst das integrierte Importwerkzeug oder VBA verwenden, um XML-Daten in eine Excel-Tabelle zu importieren.

2. Ist es möglich, mehrere XML-Dateien in Excel zu importieren?
Ja, mit dem richtigen VBA-Skript kannst du mehrere XML-Dateien in eine einzige Excel-Tabelle importieren.

3. Welche Excel-Version benötige ich für den XML-Import?
Die Vorgehensweise funktioniert in den meisten aktuellen Excel-Versionen, z.B. Excel 2016 und neuer.

Beliebteste Forumthreads (12 Monate)