Wordformularfelder in Exceltabelle speichern

  • Word

    Wordformularfelder in Exceltabelle speichern

    Hallo :)

    Ich hab ein Formular in Word erstellt und die in ihm enthaltene Daten möchte ich per VBA in eine Exceltabelle speichern, leider funktioniert das nicht (mehr)

    Der Code sieht jetzt so aus:

    Visual Basic-Quellcode

    1. Private Sub WeiterButton1_Click()
    3. Dim Letzte As Long
    4. Dim xSheet As String
    5. Dim xlApp As Excel.Application
    6. Dim xlWB As Excel.Workbook
    7. Dim xlWS As Excel.Worksheet
    10. If Dir("H:\Marketing\Formular für Vereinbarungen\Entwicklung\Speichern.xlsx") = "" Then
    11. MsgBox "Datei 'Speichern.xlsx' wurde nicht unter H:\Marketing\ gefunden", vbOKOnly + vbCritical, "Datei nicht vorhanden"
    12. Exit Sub
    13. End If
    16. If ThisDocument.OptionButtonPrä.Value = True Then
    17. xSheet = "Präsentationsv"
    18. Set xlApp = New Excel.Application
    19. Set xlWB = xlApp.Workbooks.Open("H:\Marketing\Formular für Vereinbarungen\Entwicklung\Speichern.xlsx")
    20. Set xlWS = xlWB.Worksheets("Präsentationsv")
    21. ElseIf ThisDocument.OptionButtonTicket.Value = True Then
    22. xSheet = "Ticketv"
    23. Set xlApp = New Excel.Application
    24. Set xlWB = xlApp.Workbooks.Open("H:\Marketing\Formular für Vereinbarungen\Entwicklung\Speichern.xlsx")
    25. Set xlWS = xlWB.Worksheets("Ticketv")
    26. ElseIf ThisDocument.OptionButtonRahm.Value = True Then
    27. xSheet = "Rahmenv"
    28. Set xlApp = New Excel.Application
    29. Set xlWB = xlApp.Workbooks.Open("H:\Marketing\Formular für Vereinbarungen\Entwicklung\Speichern.xlsx")
    30. Set xlWS = xlWB.Worksheets("Rahmenv")
    31. ElseIf ThisDocument.OptionButtonKoorp.Value = True Then
    32. xSheet = "Koorperationsv"
    33. Set xlApp = New Excel.Application
    34. Set xlWB = xlApp.Workbooks.Open("H:\Marketing\Formular für Vereinbarungen\Entwicklung\Speichern.xlsx")
    35. Set xlWS = xlWB.Worksheets("Koorperationsv")
    36. ElseIf ThisDocument.OptionButtonSpon.Value = True Then
    37. xSheet = "Sponsoring"
    38. Set xlApp = New Excel.Application
    39. Set xlWB = xlApp.Workbooks.Open("H:\Marketing\Formular für Vereinbarungen\Entwicklung\Speichern.xlsx")
    40. Set xlWS = xlWB.Worksheets("Sponsoring")
    42. Letzte = xlWB.Worksheets(xSheet).Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    43. xlWB.Worksheets(xSheet).Cells(Letzte, 1).Value = TextBoxName.Text
    44. xlWB.Worksheets(xSheet).Cells(Letzte, 2).Value = TextBoxStraße.Text
    45. xlWB.Worksheets(xSheet).Cells(Letzte, 3).Value = TextBoxHausnr.Text
    46. xlWB.Worksheets(xSheet).Cells(Letzte, 4).Value = TextBoxPLZ.Text
    47. xlWB.Worksheets(xSheet).Cells(Letzte, 5).Value = TextBoxOrt.Text
    50. End If
    52. xlWB.Save
    53. xlWB.Close
    54. Set xlApp = Nothing
    55. Set xlWB = Nothing
    56. Set xlWS = Nothing
    58. MsgBox "Daten erfolgreich gespeichert!", vbOKOnly, "Daten gespeichert"
    60. End Sub


    1. wird die Verbindung zu Excel hergestellt
    2. wird geschaut, ob die Datei da auch existiert
    3. soll geschaut werden, welches Kästchen ausgewählt wurde (also "Präsentationsvereinabrungen" oder "Sponsoring") - danach soll das Tabellenblatt ausgewählt werden, in welches die Daten eingetragen werden
    4. zum Schluss wird einfach nur gesagt, dass er in die nächst leere Zeile die ganzen Formularfelddaten einfügen soll.

    Leider schreibt er mir da nichts rein.
    Es wird zwar gesagt, dass gespeichert wurde, aber wenn ich die Datei dann öffne, steht nichts drin... mir wird auch kein Fehler gezeigt und jetzt bin ich grad ratlos...

    Ich bin leider kein übelster pro, deswegen weiß ich nicht, was fehlt oder falsch ist...

Facebook
Telefonspende