Word Formularfeld in Excel übertragen
28.02.2007 16:25:49
Lucia
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!