Wordexport nach Excel
17.08.2006 12:04:20
Michael
ich versuche gerade eine Möglichkeit zu finden Wordeingaben über ein Makro ins Excel zu übertragen. Hier ein Code aus dem Archiv den ich ein wenig verändert habe:
Option Explicit
Sub Textfelder_einlesen()
Dim xDoc As String
Dim appWord As Object
Dim Bereich As Range
Dim Zelle As Range
Dim Leerz As Integer, i As Integer
Dim Textfelder As String
xDoc = "C:\Documents and Settings\mploeck\Escritorio\" & ActiveCell.Value & ".doc"
If Dir(xDoc) <> "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.Documents.Open xDoc
Sheets(1).Cells(1, 1) = appWord.ActiveDocument.TextBox1.Value
Sheets(1).Cells(1, 2) = appWord.ActiveDocument.TextBox2.Value
Sheets(1).Cells(1, 3) = appWord.ActiveDocument.TextBox3.Value
appWord.Application.Quit
Set appWord = Nothing
End If
Set Bereich = Range("A:A")
For Each Zelle In Bereich
If IsEmpty(Zelle) Then Exit For
Leerz = InStr(Zelle, ":")
Textfelder = Mid(Zelle, Leerz + 1)
Zelle = Textfelder
Next Zelle
End Sub
Das Makro öffnet ein Worddokument mit dem Namen der in der gerade aktivierten Zelle steht und trägt die Texteingaben in die Zellen A1 - A3 ein. Das funktioniert soweit.
Ich möchte aber, dass die Wordangaben jeweils in die Zeile bzw. Zellen neben der markierten Zelle eingetragen werden.
Mein Vorschlag war:
Sheets(1).ActiveCell.Offset.(0, 1) = appWord.ActiveDocument.TextBox1.Value
Leider bekomme ich dabei aber eine Fehlermeldung: Laufzeitfehler 438
Kann mir jemand dabei helfen diese Problem zu lösen?
Im voraus schon vielen Dank
vg Michael