Office: Fehler beim Speichern

Hallo Zusammen,

ich erstelle eine Excel-Anwendung aus Access und schreibe Daten in Excel-Datenblatt.

Beim Speicher erhalte ich die Meldung
"Eine Datei mit dem Namen 'RESUME.XLW' existiert schon an diesem Platz. Soll sie ersetzt werden?"

und die Fehlermeldung

1004 Die SaveAs-Methode des Workbook-Objektes konnte nicht ausgeführt werden.

im source kann ich keinen Fehler finden.
Ich danke für eure Hilfe im Voraus

datei=cstr(year(date))+"_"+cstr(month(date))+"_"+cstr(day(date))+".xls"

Set xlAnw = CreateObject("Excel.Application")
xlAnw.Visible = False
xlAnw.ScreenUpdating = False

With xlAnw
.Visible = True
.Workbooks.Add
Set blatt = .Workbooks(1).Worksheets(1)
With blatt
...
...
...
End With
End With

xlAnw.Visible = True
xlAnw.Workbooks(1).Worksheets(1).SELECT
xlAnw.ScreenUpdating = True
xlAnw.ActiveWorkbook.SaveAs FileName:=excel_datei, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
xlAnw.Save
Set xlAnw = Nothing

:)

 

Moin, t672203,

der Fehler mit der *.xlw ist aus dem Codefragment nicht erkennbar, für den Speicherfehler solltest Du Dir Deine Variablen ansehen (Du befüllst datei und verwendest excel_datei).

Die Excelanwendung sollte geschlossen werden (xlAnw.Quit), bevor der Versuch der Freigabe erfolgt. Und warum die Anwendung, die zuerst eh nicht sichtbar ist, unsichtbar, dann sichtbar und erneut sichtbar gemacht wird, ergibt sich mir nicht zwingend - das muss an der frühen Stunde liegen. *wink.gif*