Office: XML mit Excel bearbeiten

XVII · 11. Juni 2016

Hallo,

es gab schon einige Themen zu XML hier, aber die Lösung zu meinem Problem habe ich dabei nicht gefunden. Falls es doch schonmal da war, wäre ich für einen Hinweis dankbar.

Auch hoffe ich, die Terminologie richtig zu verwenden, falls nicht, bitte ebenfalls anmerken.

Ich habe eine Vektorgrafik von Postleitzahlengebieten im .svg Format. SVG-Dateien funktionieren wie XML Dateien, die Struktur sieht dabei wie folgt aus (PHP-Code Funktion nur zur besseren lesbarkeit):

PHP:

- <svg xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:svg="http://www.w3.org/2000/svg" xmlns="http://www.w3.org/2000/svg" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" width="883.72029231758679027105854421" height="1199.99999999999613850915040529" version="1.1" id="svg2" inkscape:version="0.91pre3 r13670" sodipodi:docname="Landkreis Neckar Odenwald.svg"> <defs id="defs35" /> <sodipodi:namedview pagecolor="#ffffff" bordercolor="#666666" borderopacity="1" objecttolerance="10" gridtolerance="10" guidetolerance="10" inkscape:pageopacity="0" inkscape:pageshadow="2" inkscape:window-width="832" inkscape:window-height="480" id="namedview33" showgrid="false" inkscape:zoom="0.19666667" inkscape:cx="441.86014" inkscape:cy="597.45763" inkscape:window-x="0" inkscape:window-y="0" inkscape:window-maximized="0" inkscape:current-layer="svg2" /> - <metadata id="metadata4"> - <rdf:RDF> - <cc:Work rdf:about=""> <dc:format>image/svg+xml</dc:format> <dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage" /> <dc:title /> </cc:Work> </rdf:RDF> </metadata> <path id="74928" stroke="white" stroke-width="0.05" fill="#ff3300" d=$Pfaddaten /> <path id="74869" stroke="white" stroke-width="0.05" fill="#ff3300" d=$Pfaddaten /> <path id="74867" stroke="white" stroke-width="0.05" fill="#ff3300" d=$Pfaddaten /> <path id="74865" stroke="white" stroke-width="0.05" fill="#ff3300" d=$Pfaddaten />

:)

xlph · 13. Juni 2016

Lad eine Beispiel-Datei (svg) hoch, sowie die Excel-Datei.

XVII · 13. Juni 2016

Hallo,

und vielen Dank schonmal für die Hilfsbereitschaft.

Anbei die .svg (als .zip, da svg nicht hochgeladen werden darf) und die Excel Datei mit der Tabelle für die Farbgebung, wie sie später aussehen soll.

Auf knopfdruck sollen die aufgeführten PLZ in Spalte A dann als "id" Attribut in der .svg gesucht und bei den jeweiligen Gebieten das "fill" Attribut durch den Inhalt von Spalte B ersetzt werden.

Vielen Dank im Voraus!
XVII

xlph · 13. Juni 2016

Code:

Public Sub ChangeColor()

Dim xDoc As Object
Dim i As Long

Dim strPath As String
Dim strErrText As String

Dim strPLZ As String
Dim strColor As String

Dim dicPLZColor As Object

strPath = ThisWorkbook.Path & "\Landkreis Neckar Odenwald.svg" ' ggf. anpassen

Set dicPLZColor = CreateObject("scripting.dictionary")

With Tabelle1.Range("A1").CurrentRegion.Resize(, 2)
For i = 2 To .Rows.Count
strPLZ = .Cells(i, 1).Value
strColor = .Cells(i, 2).Value
If Len(strPLZ) > 0 Then
If Len(strColor) > 0 Then
dicPLZColor(strPLZ) = strColor
End If
End If
Next
End With

Set xDoc = CreateObject("MSXML2.DOMDocument")

xDoc.validateOnParse = True

If xDoc.Load(strPath) Then
' Das Dokument wurde erfolgreich geladen.
' Tun Sie an dieser Stelle etwas Interessantes.

With xDoc.getElementsByTagName("path")
For i = 0 To .Length - 1
With .Item(i).Attributes
strPLZ = .getNamedItem("id").Text
If dicPLZColor.Exists(strPLZ) Then
.getNamedItem("fill").Text = dicPLZColor(strPLZ)
End If
End With
Next
End With

xDoc.Save strPath

Else

' Das Dokument konnte nicht geladen werden.
' Fehlerinformationen finden Sie in der vorherigen Liste.

With xDoc.parseError
strErrText = "Your XML Document failed to load" & _
"due to the following error." & vbCrLf & _
"Error #: " & .ErrorCode & ": " & .reason & _
"Line #: " & .Line & vbCrLf & _
"Line Position: " & .linepos & vbCrLf & _
"Position In File: " & .filepos & vbCrLf & _
"Source Text: " & .srcText & vbCrLf & _
"Document URL: " & .URL
End With
MsgBox strErrText, vbExclamation

End If

Set dicPLZColor = Nothing
Set xDoc = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

XVII · 14. Juni 2016

Hallo,

das funktioniert hervorragend!

Vielen Dank!

Office: XML mit Excel bearbeiten

XML mit Excel bearbeiten

XML mit Excel bearbeiten

XML mit Excel bearbeiten

XML mit Excel bearbeiten - Similar Threads - XML Excel

excel und xml

Übersicht über XML in Excel

Custom UI Editor XML Excel

Excel Ribbon manuell erstellen (XML erstellen und wo einbinden)

Mehrere XML-Dateien hintereinander in Excel einlesen

Excel öffnet XMl-Datei nicht

XML Datenimport in Excel