ich bin noch auf der Suche nach Hilfe, wie ich in meinem eingelesenen XML die Umlaute ersetzen kann.
Ich dachte eigentlich, dass man "lists" (siehe mein Codebeispiel) einfach irgendwie durchsuchen und darin ersetzen kann...
Ich hoffe ihr könnt helfen & Danke im voraus.
Nautica
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
Danach suche ich nach den Knotenpunkten und weise den TAG-Inhalten bestimmte Zellen zu.