Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Kapitel 6
Endlich verstehen sich Word und Excel: Fragebogen erfassen und auswerten
End If
docDocument.Close
Set nxmlXMLNode = Nothing
Set cxmlCustomXML = Nothing
Set docDocument = Nothing
Wurden alle gewählten Dateien in der Schleife abgearbeitet, ist zum Schluss noch
etwas Aufräumen angesagt: Die anfangs erzeugte Word-Instanz muss zusammen mit
anderen Objekten wieder freigegeben werden:
wrdWordApplication.Quit
Set wrdWordApplication = Nothing
Set ofdDateiDialog = Nothing
End Sub
Daten aus den XML-Knoten auslesen
Zum Auslesen, Auswerten und Übergeben der Daten in Excel benötigen Sie fünf
weitere, kurze Routinen. Die erste Routine sorgt für das Auslesen der Daten aus der
gefundenen XML-Datenquelle. Hier werden Schritt für Schritt die Daten aus allen
XML-Knoten ermittelt und in der im Deklarationsteil definierten Struktur zwischengespeichert.
Der Zugriff auf den XML-Knoten ist sehr einfach, da auf die Methode Select­
SingleNode des übergebenen XML-Objekts cxmlvCustomXML zugegriffen wird. Der Methode
muss als Parameter der Pfad zum gewünschten Knoten mitgegeben werden, im Beispiel
ist dies cXMLRootKnoten (= root) sowie der Name des jeweiligen Knotens. Da Sie den
Inhalt des Knotens auslesen möchten, greifen Sie auf die Eigenschaft .Text zu.
Sub pDatenAusDenXMLKnotenAuslesen(ByVal cxmlvCustomXML As Office.CustomXMLPart)
On Error Resume Next
gFormularDaten.strNachname =
cxmlvCustomXML.SelectSingleNode(cXMLRootKnoten & "/Nachname").Text
...
On Error GoTo 0
End Sub
Besonders wichtig beim Auslesen der Daten ist das Ausschalten der VBA-Fehlerbehandlung.
Ist ein Knoten leer, erzeugt die Abfrage einen Fehler. Da String-Variablen
aber standardmäßig leer und Boolean-Variablen auf »Falsch« gesetzt sind, enthalten
die Variablen somit auch im Fehlerfall – wenn sie nicht gesetzt werden – die richtigen
Werte.
Datumskonvertierung bei Datum/Uhrzeit-Feldern
Während Zeichenketten aus den XML-Knoten direkt in den String-Variablen abgelegt
werden, muss beispielsweise bei Datumsangaben eine Konvertierung stattfinden.
Datums- und Uhrzeitangaben sind in den XML-Knoten immer im Format YYYY-MM-
DDThh:mm:ss gespeichert. Datum und Uhrzeit werden durch ein großes »T« getrennt.
190