Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Formulardaten von Word an Excel übergeben |
07.02.2011 22:38:52 |
Gordon |
|
|
|
08.02.2011 11:11:22 |
Severus |
|
|
|
09.02.2011 19:22:01 |
Gordon |
|
|
|
09.02.2011 20:13:12 |
Severus |
|
|
Von:
Gordon |
Datum:
07.02.2011 22:38:52 |
Views:
1916 |
Rating:
|
Antwort:
|
Thema:
Formulardaten von Word an Excel übergeben |
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.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Formulardaten von Word an Excel übergeben |
07.02.2011 22:38:52 |
Gordon |
|
|
|
08.02.2011 11:11:22 |
Severus |
|
|
|
09.02.2011 19:22:01 |
Gordon |
|
|
|
09.02.2011 20:13:12 |
Severus |
|
|