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, 274 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
Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 1 TagInternet5 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 1 TagWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 2 TagenWindows 102 Kommentare

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Sicherheit

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 2 TagenSicherheit6 Kommentare

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

Heiß diskutierte Inhalte
TK-Netze & Geräte
TAPI auf einem Win2016Server installieren und einrichten
Frage von wstabelTK-Netze & Geräte30 Kommentare

Hallo liebe Admins, ich habe folgende Situation: 1 Windows Server 2016 Standard als DC 1 SNOM 710 IP-Telefon 1 ...

Batch & Shell
Mit findstr batch doppelte zeilen einer txt löschen
Frage von Burningx2Batch & Shell25 Kommentare

Hi Vor einer weile habe ich im netzt einen windows shell befehl gefunden mit welchem man über die konsole ...

Verschlüsselung & Zertifikate
Netzwerkfreigabe Verschlüsselung
Frage von grill-itVerschlüsselung & Zertifikate20 Kommentare

Moin zusammen, sicher nutzen hier die ein oder anderen ein Produkt zur Verschlüsselung von Netzwerkfreigaben/-laufwerken auf denen hochsensible Daten ...

Microsoft
Übertragung von MS Volumenlizenzen
Frage von SherlockineMicrosoft20 Kommentare

Ich bin Angestellte in einer kleinen 10-köpfigen IT-Firma, die Netzwerklösungen, Telefonielösungen und Ähnliches anbietet. Im Sommer hatten wir einen ...