Problem Saveas Zastąp istniejący plik (Excel VBA)
Mam następujące makro, które jest poprawne, z wyjątkiemSaveAs
daje mi błąd, jeśli kliknęNo
lubCancel
, jeśli kliknęyes
działa dobrze.
ActiveWorkbook.SaveAs Filename:=FileName, FileFormat:=xlWorkbook, ConflictResolution:=xlLocalSessionChanges
Application.DisplayAlert =True
Ale kiedy przyjdęSaveAs
część Otrzymuję następujący błąd, gdy wybieramNo
do uratowania. Wiadomość Excel:Plik o nazwie „.........” już istnieje w tej lokalizacji. Czy chcesz to wymienić? Klikam „Nie” lubcancel
i uzyskaj błąd czasu działania 1004 .... MetodaSaveAs
obiektu_Workbook
nie powiodło się.
Nie chcę używaćApplication.DisplayAlerts = False
, ponieważ chcę, aby użytkownik wiedział, że istnieje już plik o takiej samej nazwie.
No
lubCancel
i nie dostaniesz błędu czasu wykonywania.