ich möchte Excel beenden und dabei auch eine Tabelle sichern. Beende ich
Excel mit dem
Menuepunkt "Beenden" oder durch Klicken auf das rechte obere Fensterkreuz
ist alles ok.
1. Tabelle wird geschlossen
2. awb.Path <> "" dh. Sicherungsdatei wird geschrieben
3. Programmm Excel wird geschlossen
4. Desktop ist zu sehen
beende ich j e d o c h mit Code: beenden_1() ; (Application.Quit)
erfolgt:
1. Tabelle wird geschlossen
2. awb.Path = "" dh. Sicherungsdatei wird n i c h t
geschrieben
3. Programmm Excel wird geschlossen
4. Desktop ist zu sehen
beende ich mit Code: beenden_2() ; (Workbooks.Close)
erfolgt:
1. Tabelle wird geschlossen
2. awb.Path <> "" dh. Sicherungsdatei wird geschrieben
3. Programmm Excel wird n i c h t geschlossen
4. Desktop ist n i c h t zu sehen
Warum erhalte ich mit beenden_1() ("Application.Quit") in der Msgbox
bei MsgBox awb.FullName den vollständigen Namen des aktiven
Workbooks incl. Path - Angabe, jedoch in MsgBox awb.Path keine
Path - Angabe ?
Jedoch bei beenden_2() ("Workbooks.Close") in der Msgbox
bei MsgBox awb.FullName den vollständigen Namen des aktiven
Workbooks incl. Path - Angabe und in MsgBox awb.Path die vollständige
Path - Angabe.
Wie lautet der Code, der dem Menupunkt "Beenden" genau entspricht?
Mit Grüssen aus Berlin, Rai
Mein Code:
in: DieseArbeitmappe habe ich stehen
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sichern
End Sub
in: Module, Modul1:
Sub Sichern()
Dim awb As Workbook, a as string
a = "Tabelle1" ' zu sichernde Tabelle a n p a s s e n
Set awb = ActiveWorkbook
If awb.Path = "" Then
MsgBox "funkt Sicherung nicht"
MsgBox awb.FullName
MsgBox awb.Path
Else
MsgBox "jetzt funkt Sicherung"
....
....
End If
End Sub
Sub beenden_1()
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
End Sub
Sub beenden_2()
Application.DisplayAlerts = False
Workbooks.Close
Application.DisplayAlerts = True
End Sub