activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav

Hi alle,
ich haben eine XLA-Datei geschrieben, die bei jedem Start von Excel aktiv ist. In dieser XLA-Datei wird
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
genutzt, um in einem zentralen DB-System einen Eintrag vorzunehmen und die Datei dann in der BeforeSave-Methode auch mit den bekannten Mitteln zu speichern. Ich führe also in BeforeSave das eigentliche Save aus und cancele dann BeforeSave, damit nicht noch mal gespeichert wird. Ist ja kein Hexcenwerk, wurde hier auch schon mehrfach beschrieben.
Funktioniert auch alles bestens für Standard-User, die ganz normal die Menüpunkte Datei / Speichern oder Datei / Speichern unter nutzen.
Aaaaaaber jetzt kommts: Ein User hat ein eigenes Makro geschrieben, in dem er ActiveWorkbook.SaveAs "C:\Test.xls" nutzt.
Interessanter Weise springt mein Workbook_BeforeSave ganz normal an und speichert die Datei, aber leider nicht unter C:\Test.xls, sondern unter dem aktuellen Dateinamen, und das ist nun ganz und gar nicht das was ich will. Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) übergibt ja leider keinen Dateinamen, sodass ich nur mit FullPath arbeiten kann. Da steht aber noch "der alte" Name drin. Wie komme ich jetzt an den neuen Dateiname C:\Test.xls?
Hat jemand eine Idee für dieses vertrackte Problem?
Viele Grüße und vielen Dank!
Norman

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Dim oKlasseExcel As Klasse1 Private Sub Workbook_BeforeClose(Cancel As Boolean) Set oKlasseExcel = Nothing End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.EnableEvents = False Cancel = True ThisWorkbook.Save Application.EnableEvents = True End Sub Private Sub Workbook_Open() Set oKlasseExcel = New Klasse1 Set oKlasseExcel.ExcelWatch = Application End Sub

Option Explicit Public WithEvents ExcelWatch As Application Private Sub ExcelWatch_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.OnTime Now + TimeSerial(0, 0, 1), "SaveAsMe_" End Sub

Hallo,
ein weiteres Problem ist aber wenn die ganze Instanz geschlossen wird
regiert ExcelWatch_WorkbookBeforeSave nicht mehr.
Dafür habe ich noch keine Lösung gefunden. :-(
kommt als Code in DieseArbeitsmappe

Option Explicit 
Dim oKlasseExcel As Klasse1 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
  On Error Resume Next 
  Application.OnTime oTimer_, "SaveAsMe_", , False 
  Set oKlasseExcel = Nothing 
End Sub 
  
Private Sub Workbook_Open() 
    Set oKlasseExcel = New Klasse1 
    Set oKlasseExcel.ExcelWatch = Application 
End Sub

kommt als Code in Modul1

Option Explicit 
Public oTimer_ As Date 
 
Sub SaveAsMe_() 
    MsgBox ActiveWorkbook.FullName 
End Sub

kommt als Code in Klasse1

Option Explicit 
 
Public WithEvents ExcelWatch As Application 
 
Private Sub ExcelWatch_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean) 
If Wb.FullName = ThisWorkbook.FullName Then Exit Sub 
If Not SaveAsUI Then 
    Call SaveAsMe_
Else 
    oTimer_ = Now + TimeSerial(0, 0, 1) 
    Application.OnTime oTimer_, "SaveAsMe_" 
End If 
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread