Hallo ich bastle seit gestern an einem Makro für Word um Formulardaten an Excel zu übergeben. Das Grundgerüst steht soweit und funktioniert. Bei den Details komme ich jetzt aber nicht mehr weiter und benötige eure Hilfe. Grundgerüst:
Sub Word_nach_Excel()
Dim xlApp As Object
Dim xlWkb As Object
Dim xlWks As Object
Dim oDoc As Document
Set oDoc = ActiveDocument
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWkb = xlApp.Workbooks.Open("C:\test.xls")
Set xlWks = xlWkb.Worksheets(1)
xlWks.Range("A1").Value = oDoc.Bookmarks("Text1").Range.Text
xlWks.Range("B1").Value = oDoc.FormFields("Dropdown1").DropDown.Value
If oDoc.FormFields("Kontrollkästchen1").CheckBox.Value = True Then
xlWks.Range("C1").Value = "ja"
ElseIf oDoc.FormFields("Kontrollkästchen1").CheckBox.Value = False Then
xlWks.Range("C1").Value = "nein"
End If
MsgBox "Alle Eingabefelder erfolgreich übertragen"
xlWkb.Save
xlApp.Quit
Set xlApp = Nothing
Set oDoc = Nothing
End Sub
Folgende Dinge würde ich jetzt gerne noch ändern. Bei jedem Formular das ich per Makro übertrage soll er die Daten in die nächste freie Zeile in dem Exceldokument schreiben und nicht starr in A1, B1 und C1. Bei dem Dropdown kann ich nur die Nummer der Auswahl übertragen (1, 2, 3 u.s.w.). Ich würde aber gerne den Textinhalt der Auswahl übertragen, z.B. Auswahl 1=rot, 2=grün etc. Wäre super wenn ihr mir weiterhelfen könntet.
|