Excel nach Word - wo ist der Fehler
30.06.2003 23:43:31
Roland Hochhäuser
ich habe mir eine Anwendung erstellt, in der ich u.a. aus einer Excel-Datei eine Word-Liste (Umgebung: Win XP und Office XP) fabriziere. Bei mir klappt das fehlerfrei; so weit, so gut. Ich habe dann die komplette Anwendung einem erfahrenen Office-Trainer mit der Bitte gegeben, "den DAU raushängen" zu lassen und mir Fehlerquellen mitzuteilen. Das hat er auch getan und mir mitgeteilt, das (bei identischer Umgebung!) der Wordexport angemeckert wird. Ist Word bereits geöffnet, wird bei Ausführung des nachfolgenden Makros ein Konflikt mit der normal.dot gemeldet. Das Makro stoppt dann, bis die Fehlermeldung weggeklickt wird und fährt dann fehlerfrei fort. Ist Word hingegen geschlossen, wird fehlerfrei exportiert. Diese Beobachtungen sind bei ihm reproduzierbar. Hier das Corpus delicti:
Sub startsDOC()
Dim oWord As Object
Dim oDoc As Object
Dim sFile As String
Dim n As Integer
Dim rngA As Range
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Word-Datei wird erstellt . . . "
Sheets("starts").Activate
sFile = Range("A1").Value
On Error GoTo ERRORHANDLER
n = Range("C65536").End(xlUp).Row
Set rngA = Range(Cells(3, 3), Cells(n, 15))
rngA.Copy
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add
Application.StatusBar = "Noch einen Moment Geduld . . . "
oDoc.Range.Paste
oDoc.SaveAs sFile
oWord.Quit
Sheets("Starter").Activate
Application.DisplayStatusBar = False
Application.ScreenUpdating = True
Set oWord = Nothing
Set oDoc = Nothing
Set rngA = Nothing
End
ERRORHANDLER:
Sheets("Starter").Activate
Application.DisplayStatusBar = False
Application.ScreenUpdating = True
Set oWord = Nothing
Set oDoc = Nothing
Set rngA = Nothing
MsgBox "Bitte den Verzeichnisnamen überprüfen!"
End Sub
Falls es tatsächlich am Makro liegt, wie kann ich den Fehler abfangen? Wie ist Eure Meinung?
Gute Nacht aus Berlin.
Roland Hochhäuser