Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Suche Excel Batch (VBA, DOM usw.) um XML Daten in Tabelle zu schreiben

Mitglied: PaulElch

PaulElch (Level 1) - Jetzt verbinden

08.11.2018 um 19:43 Uhr, 267 Aufrufe, 2 Kommentare

Hallo zusammen,

ich habe ca. 15.000 XML Dateien in einem Ordner liegen. Jede dieser Dateien ist gleich aufgebaut. Ich suche nun ein Skript o.ä. wie ich jeweils die Felder dieser XML Dateien in eine Excel Datei schreiben kann.

Der Aufbau der XML Datei ist wie folgt (z.B. Datei "aaa111_2018.xml"):


01.
<?xml version="1.0" encoding="ISO-8859-1"?>
02.
<xmlBody> <HTMLFILENAME>aaa102_2019</HTMLFILENAME> 
03.
<HTMLTITLE></HTMLTITLE> 
04.
<Section1> 
05.
<UE2-Blau>Ferienwohnungen mit Pool</UE2-Blau> 
06.
<UE2-Blau> <Objektcode>AAA 100</Objektcode> - Wohnung &#xa0;2-4 Personen </UE2-Blau> 
07.

08.
<UE2-Blau> 
09.
<Objektcode>AAA 101</Objektcode> - Wohnung &#xa0;4 Personen 
10.
</UE2-Blau> 
11.

12.
<UE2-Blau> 
13.
<Objektcode>AAA 102</Objektcode> - Wohnung &#xa0;6 Personen 
14.
</UE2-Blau> 
15.

16.
<G1> Das 2010 gebaute Haus ...usw.</G1> 
17.

18.
<G1-mL></G1-mL> 
19.

20.
<G1><Objektcode> AAA 100 </Objektcode> 3-Zimmer-Wohnung, Erdgeschoss, ca. 45 m2. </G1> 
21.

22.
<G1><Objektcode> AAA 101 </Objektcode> 3-Zimmer-Wohnung, Erdgeschoss, ca. 55&#xa0;m2. </G1> 
23.

24.
<G1><Objektcode> AAA 102 </Objektcode> 4-Zimmer-Wohnung, Obergeschoss, ca. 75 m2. </G1> 
25.

26.
</Section1>
27.
</xmlBody>
Ich möchte nun jeweils den Text aus <G1> in ein Excelfeld schreiben. Leider kenne ich mich mit VBA Progammierung nicht aus und hoffe daher auf die Hilfe der Profis hier in Forum. Ich bin über jeden Ansatz dankbar.

Viele Grüße
Paule
Mitglied: 137443
09.11.2018, aktualisiert um 11:07 Uhr
Wäre ja auch zu viel verlangt die Ansätze hier mal mit der Forumssuche zu erlangen
https://www.administrator.de/forum/excel-vba-xml-nodes-auslesen-303856.h ...
Das kommt ja fast im Wochenrhythmus
01.
Sub ImportPaulesFuckingXMLs()
02.
    Set fso = CreateObject("Scripting.FileSystemObject")
03.
    strFolder = ThisWorkbook.Path
04.
    Set xmldoc = CreateObject("msxml2.domdocument")
05.
    xmldoc.Async = False
06.
    For Each file In fso.GetFolder(strFolder).Files
07.
        xmldoc.Load (file.Path)
08.
        Set Nodes = xmldoc.SelectNodes("//G1")
09.
        If Not Nodes Is Nothing Then
10.
            For Each Node In Nodes
11.
                Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = Node.Text
12.
            Next
13.
        End If
14.
    Next
15.
End Sub
Gruß l.
Bitte warten ..
Mitglied: PaulElch
13.11.2018 um 09:08 Uhr
Hallo 137443,

sorry für die Anfängerfrage, aber ich bin totaler Laie in der VBA Programmierung.
Ich habe dein Skript nun zum Laufen bekommen und er liest mir die Texte von "G1" auch super aus. Ich würde nun gerne noch "HTMLTITLE" in Spalte A ausgeben und von "G1" immer nur der erste Block. Kannst du mir diesbezüglich noch einmal weiterhelfen?

Vielen Dank und Gruß
Paul
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel VBA XML-Nodes auslesen
Frage von chef1568VB for Applications4 Kommentare

Hallo zusammen, ich lese eine XML-Datei mittels DOMDocument-Methode aus. Ich möchte nun den Wert von <Text> aus der Stellenbezeichnung ...

VB for Applications

Excel VBa - Prüfen ob XML-Knoten vorhanden

gelöst Frage von chef1568VB for Applications2 Kommentare

Hallo zusammen, ich lese via VB eine XML ein und parse gewisse Daten in meinem Excel-sheet. Solange die XML ...

PHP

PHP DOM XML Attribute alphabetisch Sortieren

gelöst Frage von pascallantzschPHP2 Kommentare

Hallo, ich möchte gern ein DOM Document Array alphabetisch sortieren, wie es bei einem normalem Array() geht weiß ich, ...

Batch & Shell

Excel VBA über Batch starten

gelöst Frage von freshman2017Batch & Shell5 Kommentare

Moin moin, habe folgende VBA: Wie kann ich VBA auf eine Test.xls, die auf dem Desktop liegt, anwenden, sodass ...

Neue Wissensbeiträge
Humor (lol)
Und wie seid Ihr gegen Cyberattacken gewappnet?
Information von DerWoWusste vor 1 TagHumor (lol)5 Kommentare

aber wo ist der Hammer? :-)

Sicherheit
Ein weiterer Microsoft-Stirnklatscher
Information von DerWoWusste vor 2 TagenSicherheit7 Kommentare

Habe gerade einen Artikel zu einem Sicherheitsproblem gefunden, welches mir zu seiner Zeit (gepatcht 2015) wohl durchgerutscht ist. Es ...

Windows 10
Upgradepfade Windows 10 LTSC
Erfahrungsbericht von Datenreise vor 2 TagenWindows 10

Nur eine kurze Info, für diejenigen, die es interessiert, da es hierzu im Netz aus nachvollziehbaren Gründen nicht allzu ...

Administrator.de Feedback
Wartungsarbeiten heute Nacht (Update)
Information von Frank vor 2 TagenAdministrator.de Feedback10 Kommentare

Hallo User, durch Umbauarbeiten in unserem Rechenzentrum (am Backbone) kann es heute Nacht (14-15.01.2019) zu kurzen Ausfällen unserer Seite ...

Heiß diskutierte Inhalte
Microsoft
SFirm 4.0 auf Terminalserver startet für jeden angemeldeten Benutzer diverse Dienste
Frage von Frank84Microsoft25 Kommentare

Hallo zusammen, wir verwenden Sfirm 4.0 auf einem Terminalserver (der SQL Server ist auf einem separaten Server), das Problem ...

Windows 10
Windows 10 - kein Boot mehr nach Domänenaustritt
gelöst Frage von Ghost108Windows 1025 Kommentare

Hallo zusammen, habe hier eine Windows 10 Maschine, die ich gerne aus der Domäne austreten lassen möchte. Nach Austritt ...

Windows 10
VM wächst schnell von 14 auf 35 GB an - warum?
Frage von degudejungWindows 1018 Kommentare

Hallo, ich bin ein Freund schlanker VMs und setze daher gerne mit dem Erscheinen einer neuen Win10 Version - ...

Internet
Google-Suchergebnisse, Schnelleinblendung, woher kommt der Inhalt?
gelöst Frage von departure69Internet17 Kommentare

Hallo. Ich bin der Systembetreuer einer kleinen Gemeinde in Süddeutschland. Wir betreiben auch eine Leihbücherei. Eine Kundin hat letzten ...