PDA

Vollständige Version anzeigen : Warum funktioniert dieser Zugriff nicht?


nfs5
17.07.2006, 09:15
hallo,

nun bin ich auch wieder auf diesen Board zu finden.
War lange nicht anwensen.. *schäm* *sorry*
Warum funktioniert folgende Funktion nicht?
Ich will Daten von Excel ins Word (in einer Textmarke) kopieren.


Sub WriteToWord(strText)

On Error GoTo ErrH

'Schreibt die Daten von Excel ins Word
Dim appWord As Word.Application
Dim dc As Document
Set appWord = CreateObject("Word.Application")
Set dc = appWord.Documents.Open("C:\Dokumente und Einstellungen\username\Eigene Dateien\test.doc") 'Öffnet das angegebene Document
appWord.ActiveDocument.Bookmarks("test").Range.InsertBefore strText

Set dc = Nothing
appWord.Quit
Set appWord = Nothing
Exit Sub
ErrH:
MsgBox Err.Description
End Sub


Er verabschiedet sich meist nach "Set dc = ......"
Entweder hängt sich der Computer auf oder ich bekomme Ne Fehlermeldung.

Danke
nfs5

jinx
17.07.2006, 18:16
<font size="2" face="Century Gothic">Moin, nfs5,

vielleicht soilltest Du folgendes Vorgehen einmal testen:

Option Explicit

Sub WriteToWord(strText)

On Error GoTo ErrH

'Schreibt die Daten von Excel ins Word
Dim appWord As Object
Dim dc As Object
Set appWord = CreateObject("Word.Application")
Set dc = appWord.Documents.Open("E:\test.doc") 'Öffnet das angegebene Document
dc.Bookmarks("test").Range.InsertBefore strText

Set dc = Nothing
appWord.Quit
Set appWord = Nothing
Exit Sub

ErrH:
MsgBox Err.Description
End Sub

Was aus dem Word-Dokument wird, bleibt noch zu klären...;)</font>