ThisWorkBook Kullanarak Hızlı Yedekleme

[baydeniro]

Merhaba Arkadaşlar
Çalıştığım dosyayı hızlı yedeklemek için aşağıdaki bir bir kod kullanıyorum. Gayet iyi çalışıyor.

Code:
Sub Dosya_Kopyala()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ActiveWorkbook.Save
ds.CopyFile "C:\Users\central\EXPENCES.xlsm", _
ThisWorkbook.Path & "\" & "EXPENCES_yedek.xlsm"
End Sub

ama bu satırda dosyanın adını değil de, "ThisWorkbook", yani dosyanın adı ne olursa olsun gibi.
ds.CopyFile "C:\Users\central\" & ThisWorkbook & ".xlsm", _
şeklinde denedim olmadı

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yazın.

ds.CopyFile thisworkbook.fullname, _
ThisWorkbook.Path & "\" & "EXPENCES_yedek.xlsm"

 

[baydeniro]

Merhaba.
Aşağıdaki gibi yazın.

ds.CopyFile thisworkbook.fullname, _
ThisWorkbook.Path & "\" & "EXPENCES_yedek.xlsm"

dalgalikur üstadım, çok çok teşekkür ediyorum, harika oldu şimdi. Sağlıcakla kalın