activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav
norman
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