Ich lese ein XML Telegramm über einen Button ein, um es später auszuwerten.
Das funktioniert alles soweit, bis im XML Text ein Umlaut steht.
Gibt es die Möglichkeit, die Umlaute zu suchen und zu ersetzen?
So sieht der Code aus:
Option Explicit
Sub Schaltfläche_Klicken()
Dim vntFiles As Variant
vntFiles = Application.GetOpenFilename("XML Dateien (*.xml),*.xml", MultiSelect:=False)
If (vntFiles = 0) Then
Exit Sub
End If
Dim XDoc As Object
Dim lists As Object
Dim listNode As Object
Dim fieldNode As Object
Dim nodeattr As Object
Dim lattr As Object
Dim xnode As Object
Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False: XDoc.validateOnParse = False
XDoc.Load (vntFiles)
'Get Document Elements
Set lists = XDoc.DocumentElement
End Sub
So, danach suche ich nach den Knotenpunkten und weise den TAG-Inhalten bestimmte Zellen zu. Das will ich euch aber ersparen und ich m.E. auch nicht mehr relevant(?). :)
Hat jemand eine Idee an welcher Stelle und wie ich Suchen/Ersetzen kann?
Vielen lieben Dank schon mal und einen schönen Tag!