Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.02.2011 22:38:52 |
Gordon |
|
|
Formulardaten von Word an Excel übergeben |
08.02.2011 11:11:22 |
Severus |
|
|
|
09.02.2011 19:22:01 |
Gordon |
|
|
|
09.02.2011 20:13:12 |
Severus |
|
|
Von:
Severus |
Datum:
08.02.2011 11:11:22 |
Views:
973 |
Rating:
|
Antwort:
|
Thema:
Formulardaten von Word an Excel übergeben |
Versuchs mal damit:
Sub Word_nach_Excel()
Dim xlApp As Excel.Application
Dim xlWkb As Excel.Workbook
Dim xlWks As Excel.Worksheet
Dim oDoc As Document
Dim lngFreieZeile As Long
On Error Resume Next
Set oDoc = ActiveDocument
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set xlApp = CreateObject("Excel.Application"): DoEvents
xlApp.Visible = True
End If
Set xlWkb = xlApp.Workbooks.Open("C:\test.xls")
Set xlWks = xlWkb.Worksheets(1)
With xlWks
lngFreieZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngFreieZeile, 1) = oDoc.Bookmarks("Text1").Range.Text
.Cells(lngFreieZeile, 2) = oDoc.FormFields("Dropdown1").Result
If oDoc.FormFields("Kontrollkästchen1").CheckBox.Value = True Then
.Cells(lngFreieZeile, 3) = "ja"
ElseIf oDoc.FormFields("Kontrollkästchen1").CheckBox.Value = False Then
.Cells(lngFreieZeile, 3) = "nein"
End If
If Err.Number = 0 Then
MsgBox "Alle Eingabefelder erfolgreich übertragen.", vbInformation, "Info..."
Else
Err.Clear
MsgBox "Nicht alle Eingabefelder übertragen!", vbCritical, "Fehler..."
End If
End With
xlWkb.Close True
Set xlWks = Nothing
Set xlWkb = Nothing
xlApp.Quit
Set xlApp = Nothing
Set oDoc = Nothing
End Sub
Severus
|
- 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
|
|
07.02.2011 22:38:52 |
Gordon |
|
|
Formulardaten von Word an Excel übergeben |
08.02.2011 11:11:22 |
Severus |
|
|
|
09.02.2011 19:22:01 |
Gordon |
|
|
|
09.02.2011 20:13:12 |
Severus |
|
|