Word Formularfeld in Excel übertragen

Forumthread: Word Formularfeld in Excel übertragen

28.02.2007 16:25:49

Lucia

Hallo,
Ich habe mehrere Word Formulare und möchte aus den Word Formularen die einträge aus den Formularfeldern in excel einlesen und auswerten können.
Ich bin ein blutiger Anfänger, was VBA angeht, habe aus einem anderen Forumsbeitrag aber schon mal was übernommen und mich daran versucht.
das sieht dann jetzt so aus:


Sub einlesen()
Dim Wordapp As Object
Dim Worddoc As String
Pfad = Worksheets("070228_Fragebogen_Gewinn.xls").Cells(1, 1).Value = i = 1
Do
i = i + 1
Datei = Worksheets("gewinn_fragebogen").Cells(i + 2, 1).Value("ergebnis")
Dateipfad = Pfad & Datei
If Datei <> "" Then
Set Wordapp = CreateObject("Word.Application")
Wordapp.Visible = True
Wordapp.Documents.Open ("Dateipfad")
Wordapp.Visible = True
Worksheets("gewinn_fragebogen").Cells(i, 2) = Wordapp.formField("Text1").Range.Text
Wordapp.Close
End If
Loop Until Datei = ""
Wordapp.Quit
End Sub

bei Datei = Worksheets("gewinn_fragebogen").Cells(i + 2, 1).Value("ergebnis")
zeigt er mir "Laufzeitfehler 13, Typen unverträglich" an.
Nachdem er mir schon viele andere Fehler auch schon angezeigt hat, bin ich langsam am verzweifeln.
Bitte helft mir!
Danke!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Word Formularfeld in Excel übertragen

01.03.2007 07:15:36

Hans
AW: Word Formularfeld in Excel übertragen

01.03.2007 09:16:25

Lucia

AW: Word Formularfeld in Excel übertragen

01.03.2007 07:15:36

Hans

Hallo Lucia,
wenn wir uns mal auf das Wesentliche beschränken:


Sub WordEinlesen()
Dim Wordapp As Object
Dim Worddoc As Object
Set Wordapp = CreateObject("Word.Application")
Set Worddoc = Wordapp.Documents.Open("c:\test.doc")
ActiveSheet.Cells(1, 2) = Worddoc.formFields(1).Result
Worddoc.Close
Wordapp.Quit
Set Wordapp = Nothing
Set Worddoc = Nothing
End Sub

Gruss hans

AW: Word Formularfeld in Excel übertragen

01.03.2007 09:16:25

Lucia

Danke Hans,
Das sieht schon wirklich wesentlich besser aus und außerdem kapier ichs jetzt auch eher. Gestern abend hatte ich noch eine andere version ausprobiert, die auch fein war und funktioniert hat.


Sub holword()
Dim appWord As Word.Application
Dim myDoc As Document
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set myDoc = appWord.Documents.Open("C:\...")
[B8] = myDoc.FormFields("Text1").Result
[B10] = myDoc.FormFields("Text3").Result
[B11] = myDoc.FormFields("Text2").Result
[C22] = myDoc.FormFields("Text4").Result
[D22] = myDoc.FormFields("Text5").Result
[E22] = myDoc.FormFields("Text6").Result
[F22] = myDoc.FormFields("Text7").Result
myDoc.Close
appWord.Quit
Set myDoc = Nothing
Set appWord = Nothing
End Sub

is beides fein, danke dir!
Gruß, Lucia

Beliebteste Forumthreads (12 Monate)

Word Formularfeld in Excel übertragen

Forumthread: Word Formularfeld in Excel übertragen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread