everest
Oct 18, 2015, updated at Dec 31, 2015 (UTC)
view11795
view11
0
Goto Top

Einlesen bestimmten Werten, Texten aus XML- Datei in EXCEL

GermansolvedQuestionXMLDevelopment
Hallo Experten,

ich möchte in Excel die Werte/Texte aus einer XML-Datei direkt lesen ohne sie zu importieren. Kann jemand mir helfen?

Vielen Dank
Everest
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 285961

Url: https://administrator.de/contentid/285961

Printed on: April 16, 2024 at 11:04 o'clock

11 Comments
Latest comment
Goto Top
Mitglied: 114757
114757 Oct 18, 2015, updated at Oct 19, 2015 at 07:21:22 (UTC)
Goto Top
Moin,
Und wat willste auslesen ? Bisschen wenig Info ...

Schon mal die Suchfunktion angeschmissen ?!
Aus einer XML-Datei mehrere Daten auslesen und in einer bestimmten Syntax in eine Excel-Datei speichern

Gruß jodel32
Member: Everest
Everest Oct 20, 2015 at 20:27:03 (UTC)
Goto Top
Hi Jodel32,

vielen Dank für die prompte Anwort. Ich habe deine Script-Datei genommen und ein bisschen modifiziert, aber es hat nicht geklappt. Sorry, ich bin kein Script-Profi face-sad
Meine .XML Datei schaut so aus:

<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type='text/xsl' href='util/summary.xsl' ?>
<SUMMARY Version="2.0" Date="2015-10-18">
<HOST HostName="APP">
<OName Value="Microsoft Windows Server 2012 R2 Standard" />
<OServicePack Value="" />
<App1 Version="5.1.0" />
<App2 Version="5.0" />
<App3 Version="" />
<App4 Version="1.0.8.0" />
</HOST>
<HOST HostName="ANN">
<OName Value="Microsoft Windows Server 2008 R2 Standard " />
<OServicePack Value="Service Pack 1" />
<App1 Version="5.1.0" />
<App2 Version="5.0" />
<App3 Version="" />
<App4 Version="1.0.8.0" />
</HOST>
</SUMMARY>

Ich möchte quasi, den Hostname und OName, OSP, App1 bis App4 einlesen und in eine Tabelle schreiben. Diese Datei wird noch länger, aber immer die gleiche Schema. Das sollte so aussehen:

Hostname Start Date App1 App2 App3 App4

APP 2014 5.1.0
ANN

Ich bin sehr dankbar für deine Hilfe.
Vielen Dank.
Everest
Member: colinardo
colinardo Oct 21, 2015, updated at Oct 25, 2015 at 18:19:18 (UTC)
Goto Top
Hallo Everest,
Bitteschön face-wink
Sub ImportXML()
    Set XML = CreateObject("MSxml2.DOMDocument.6.0")  
    XML.Load ("C:\temp\demo.xml")  
    
    With ActiveSheet
        'Überschriften setzen  
        .Range("A1:F1").Value = Array("Hostname", "Start Date", "App1", "App2", "App3", "App4")  
        .Range("A1:F1").Font.Bold = True  
        'Anfangszelle setzen  
        Set rngOut = .Range("A2")  
        'Datum auslesen  
        Set summaryNode = XML.SelectSingleNode("/SUMMARY")  
        If Not summaryNode Is Nothing Then
            strDate = summaryNode.Attributes.getNamedItem("Date").Text  
        Else
            strDate = ""  
        End If
        'Host-Nodes auslesen  
        Set nodesHOST = XML.SelectNodes("/SUMMARY/HOST[contains(@HostName,'APP')]")  
        'Für jeden HOST-Node setze die entsprechenden Infos in eine neue Zeile  
        If Not nodesHOST Is Nothing Then
            For Each Node In nodesHOST
                strHostname = Node.Attributes.getNamedItem("HostName").Text  
                strApp1 = Node.SelectSingleNode("App1").Attributes.getNamedItem("Version").Text  
                strApp2 = Node.SelectSingleNode("App2").Attributes.getNamedItem("Version").Text  
                strApp3 = Node.SelectSingleNode("App3").Attributes.getNamedItem("Version").Text  
                strApp4 = Node.SelectSingleNode("App4").Attributes.getNamedItem("Version").Text  
                rngOut.Resize(1, 6).Value = Array(strHostname, strDate, strApp1, strApp2, strApp3, strApp4)
                Set rngOut = rngOut.Offset(1, 0)
            Next
        End If
    End With
    Set XML = Nothing
End Sub
heart1
Member: Everest
Everest Oct 21, 2015 at 20:37:27 (UTC)
Goto Top
Hi Colinardo,

Ich danke Dir. Es funktioniert prima mit meinem Test. Ich muss es nur noch mit einem echten .XML Datei mit mehreren Feldern testen. Das sollte kein problem sein oder?

Ich werde mich melden. Ich bin gespannt auf das Ergebniss.

Danke Dir nochmals und schönen Abend.
Everest.
Member: colinardo
colinardo Oct 21, 2015 updated at 22:05:52 (UTC)
Goto Top
Zitat von @Everest:
Ich muss es nur noch mit einem echten .XML Datei mit mehreren Feldern testen. Das sollte kein problem sein oder?
Definiere Felder ?
Mein Skript durchläuft in deiner XML Datei alle HOST Elemente welche direkte Kindelemente im DocumentElement Summary sind, und extrahiert die in deiner Beispieldatei genannten Unterelemente bzw. Attribute.
Ich werde mich melden. Ich bin gespannt auf das Ergebniss.
Danke Dir nochmals und schönen Abend.
Alles klar, wünsche ich ebenso...
Member: Everest
Everest Oct 25, 2015 at 07:41:54 (UTC)
Goto Top
Hi Colinardo,

nochmals herzlichen Dank für die Script. Es hat funktioniert. Ich habe 2 Fragen:

Zum Verständnis, die Feldername in meinem Script heißen anders, als sie hier dargestellt sind. Das Prinzip ist ja das gleiche.

1) Aus irgendeinem Grund, werden die Felder: StrOSName, strOSSPack, strApp6 beim Debuggen einen Fehler angezeigt: Runtime error (91), Object variable or Block variable not set. Ich habe es nicht rausgekriegt!

2) Ich möchte einen Filter setzen in "For Each Node in nodesHost", dass er nur die Hostnamen anzeigt, die Buchstaben "APP" findet. Z.B: MMMAPPNN, MMMTERNN

If Not nodesHOST Is Nothing Then

For Each Node In nodesHOST

strHostname = Node.Attributes.getNamedItem("HostName").Text
strOSName = Node.SelectSingleNode("OSName").Attributes.getNamedItem("Version").Text

strOSSPack = Node.SelectSingleNode("OSServicePack").Attributes.getNamedItem("Version").Text
strApp1 = Node.SelectSingleNode("App1").Attributes.getNamedItem("Version").Text

strApp2 = Node.SelectSingleNode("App2").Attributes.getNamedItem("Version").Text
strApp3 = Node.SelectSingleNode("App3").Attributes.getNamedItem("Version").Text
strApp4 = Node.SelectSingleNode("App4").Attributes.getNamedItem("Version").Text
strApp5 = Node.SelectSingleNode("App5").Attributes.getNamedItem("Version").Text
strApp6 = Node.SelectSingleNode("App6").Attributes.getNamedItem("Version").Text

rngOut.Resize(1, 9).Value = Array(strHostname, strOSName, strOSSPack, strApp1, strApp2, strApp3, strApp4, striApp5, strApp6)

Set rngOut = rngOut.Offset(1, 0)

Next

End If


Tausend Dank.
Everest
Member: colinardo
colinardo Oct 25, 2015 updated at 15:22:53 (UTC)
Goto Top
Zitat von @Everest:
Zum Verständnis, die Feldername in meinem Script heißen anders, als sie hier dargestellt sind. Das Prinzip ist ja das gleiche.
Solange der Aufbau und die Verschachtelung exakt gleich bleibt ja. Ansonsten ist immer Anpassung nötig.

1) Aus irgendeinem Grund, werden die Felder: StrOSName, strOSSPack, strApp6 beim Debuggen einen Fehler angezeigt: Runtime error (91), Object variable or Block variable not set. Ich habe es nicht rausgekriegt!
Dann Prüf als erstes die Groß- und Kleinschreibung der Elemente und Attribute, das diese übereinstimmen.
Ohne deine original XML ist hier die Fehlerursache schwer aufklärbar.
Falls du sie nicht veröffentlichen willst kannst du sie auch gerne via PM zuschicken.
2) Ich möchte einen Filter setzen in "For Each Node in nodesHost", dass er nur die Hostnamen anzeigt, die Buchstaben "APP" findet. Z.B: MMMAPPNN, MMMTERNN
Die Beschreibung ist leider etwas unverständlich...meinst du damit das du nur Nodes verarbeiten willst die den String: APP im Hostname enthalten ?? Denn dein zweites Beispiel enthält das ja nicht sondern stattdessen "TER" ???
Member: Everest
Everest Oct 25, 2015 at 17:11:15 (UTC)
Goto Top
Hi Colinardo,
zum Punkt 2) Du hast es richtig verstanden. Es gibt verschiedene Server Namen, nur welcher, den String APP hat soll angezeigt werden.

zum Punkt 1) Ich werde die Groß- Kleinschreibung nochmals prüfen.

Danke Dir.
Everest
Member: colinardo
colinardo Oct 25, 2015 updated at 18:22:48 (UTC)
Goto Top
Zitat von @Everest:

Hi Colinardo,
zum Punkt 2) Du hast es richtig verstanden. Es gibt verschiedene Server Namen, nur welcher, den String APP hat soll angezeigt werden.
Die XPath Query für die Hosts ist oben im Code entsprechend angepasst (Zeile 19)

Grüße und schönen Sonntagabend
Uwe
Member: Everest
Everest Oct 25, 2015 at 19:43:45 (UTC)
Goto Top
ich bedanke mich herzlich und wünsche Dir auch einen schönen Abend.

Gruss,
Everest
Member: colinardo
Solution colinardo Dec 30, 2015, updated at Dec 31, 2015 at 07:06:43 (UTC)
Goto Top
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen. Merci.

Guten Rutsch.
GermansolvedQuestionXMLDevelopment