xml.datei mit vba lesen

ing.grohn · 2019-05-13T20:25:15+00:00

Hallo Forum, ich suche nun schon ein geraume Zeit nach Infos zu xml-Dateien. Bin aber nicht wirklich zum Ziel gekommen. Kennt jemand die Datei: xjustiz_nachricht.xml und kann mir zeigen, wie ich sie per VBA auslesen/auswerten kann? Für eure Bemühungen bedanke ich mich. MfG Albrecht (eine Beispieldatei kann ich nicht anbieten (siehe Namen))

Hallo
Unter https://xjustiz.justiz.de/xjustiz_2_4/index.php findest Du die Spezifikation deines Dokuments (über 1000 Seiten ;-) )
Im Anhang findest Du ein Code Schnipsel wie es im Prinzip gehen würde (bezieht sich aber nicht auf Deine XML).


Option Explicit
Dim xDoc As MSXML2.DOMDocument60
Public Sub LoadDocument()
Set xDoc = New MSXML2.DOMDocument60
xDoc.validateOnParse = True
If xDoc.Load("C:\Users\?\Downloads\123098.xml") Then
' The document loaded successfully.
Debug.Print "Load success ...."
Else
' The document failed to load.
Debug.Print "Load failed ...."
End If
End Sub
Sub GetKD_ID(myCustomer As String)
Dim oSeqNodes As IXMLDOMNodeList
Dim oSeqNode As IXMLDOMNode
Dim oSeqChild As IXMLDOMNode
Set oSeqNodes = xDoc.SelectNodes("//BrandData/" & myCustomer)
If oSeqNodes.Length = 0 Then
'show some message
Else
For Each oSeqNode In oSeqNodes
For Each oSeqChild In oSeqNode.ChildNodes
Debug.Print oSeqChild.nodeName
Next
Next
End If
End Sub

Hallo
Das funktioniert so nicht. Um eine UTF-8 einzulesen mußt Du ADODB.Stream verwenden. Anbei ein kleines Beispiel


Sub ReadFileUTF()

  Dim myObj As Object
  Dim myStr As String
  
  If myObj Is Nothing Then Set myObj = CreateObject("ADODB.Stream")
  
  myObj.CharSet = "utf-8"
  myObj.Open
  myObj.LoadFromFile "C:\Users\a.xml" ' anpassen 
  
  Do Until myObj.EOS
       myStr = myObj.ReadText(-2)     ' hier wird Zeilenweise gelesen 
       Debug.Print myStr              ' hier gehts mit deinem Programm weiter 
  Loop
  myObj.Close
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Forumthread: xml.datei mit vba lesen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

XML-Datei mit VBA einlesen und auswerten

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)