Teststand xml's parsen
21.02.2020 09:56:19
Miro
ich bin ein mittel-bis niedrigversierter, aber vor allem pragmatisch veranlagter VBA Programmierer. Ich bin im Besitz folgender Teststand xml
https://www.herber.de/bbs/user/135342.txt
Bislang parse ich schon einfach xml's über obj2XML. Nun, wenn es nur um eine oder 10 Dateien ginge, würde ich es einfach manuell auslesen. Ich habe aber über 400 xml's die ich auswerten will. Ich möchte wissen, siehe Datei, wie ich auf den Ergebnisknoten komme.
Bislang sieht es bei mir wie folgt aus:
...
Do Until TextBox2.Text = z - 2
Application.DisplayAlerts = False
'den Dateipfad mit Dateinamen einem String zuordnen um in im Objekt objXML.Load laden zu können
datName = TextBox1.Text & "\" & Worksheets("Dateinamen").Range("A" & z - 1)
If Not obj2XML.Load(datName) Then
' Fehler beim Laden
MsgBox "Fehler beim Laden des Dokumentes." & vbCrLf & vbCrLf _
& "Grund: " & obj2XML.parseError.reason & vbCrLf _
& "Zeile: " & obj2XML.parseError.Line, vbOKOnly Or vbExclamation, "Fehler"
'Set objXML = Nothing
End If
Set taNode = obj2XML.SelectSingleNode("/trc:TestResults/tr:Extension/ts:TSResultSetProperties/CriticalFailureStack/ts:CriticalFailureStackEntry")
Worksheets("Programmieren").Range("D" & z - 1) = taNode.Text
Loop
...
Ich führe das über eine Userform aus indem ich auf "Parsen" klicke und die Funktionen ausgeführt werden. Führe ich diese Funktion aber aus, kommt die Fehermeldung "Verweis auf nichtdeklariertes Namespräfix 'trc'". Der Knoten heist doch aber trc: Testresults.
Könnt ihr mir weiterhelfen?
Vielen Dank