Word Formular zu Excel: Makro läuft nicht
07.01.2016 12:21:56
Max
Ich bin gerade dabei, ein Word-Formular (XML-Daten) in Excel zu übertragen. Die Knoten heißen z.B. q007_1; q007_2; und q007_3.
Jetzt soll das Ganze in Excel rüber. Auf folgender Website habe ich dafür eine Anleitung gefunden. Schritt 1-3 haben funktioniert, Schritt 4 hängt.
Könnt Ihr mir den Gefallen tun und mal meinen VBA-Code checken, was da nicht stimmt?
Da wäre ich Euch sehr dankbar!! :)
Viele Grüße
Max
Set wrdWordApplication = CreateObject("Word.Application")
Set ofdDateiDialog = Application.FileDialog(msoFileDialogFilePicker)
For Each cxmlCustomXML In docDocument.CustomXMLParts
If cxmlCustomXML.BuiltIn = False Then
Set nxmlXMLNode = cxmlCustomXML.SelectSingleNode(cXMLKnotenRoot)
If Not nxmlXMLNode Is Nothing Then
Exit For
End If
End If
Next cxmlCustomXML
If Not cxmlCustomXML Is Nothing Then
pDatenAusXMLStrukturAuslesen cxmlvCustomXML:=cxmlCustomXML
pDatenInExcelEinfügen
End If
gstrq007_1 = cxmlvCustomXML.SelectSingleNode(cXMLKnotenRoot & "/q007_1").Text
gstrq007_2 = cxmlvCustomXML.SelectSingleNode(cXMLKnotenRoot & "/q007_2").Text
gstrq007_3 = cxmlvCustomXML.SelectSingleNode(cXMLKnotenRoot & "/q007_3").Text
Sheets("DatenAusWord").Select
Range("A2").Select
If Trim(ActiveCell.Value) "" Then
Range("A1").Select
Selection.End(xlDown).Select
Else
Range("A1").Select
End If
wrdWordApplication.Quit
Set wrdWordApplication = Nothing