dosyanın yedeğini almak

[kan-nas]

Selamlar,

Excel dosyasında makro çalıştırdığım zaman C sürücüsünde Raporlar adı altında bir klasör açılmalı ve o klasöre Makro çalıştıktan sonraki Excelin bir kopyası atmalı.
Bu şekilde bir kod arıyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyiniz. Daha sonra kendi makronuzun son satırına AKTİF_DOSYAYI_YEDEKLE yazın. Bu şekilde kendi makronuz işlemi bitirdikten sonra benim önerdiğim kod çalışarak dosyanızı "C:\Raporlar\" klasörüne yedekleyecektir.

Option Explicit
 
Sub AKTİF_DOSYAYI_YEDEKLE()
    Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
 
    Yedek_Dosya_Adı = Replace(ThisWorkbook.Name, ".xls", "") & Format(Date, " dd_mm_yyyy") & "_" & Format(Now, "hh_mm") & ".xls"
    Kayıt_Yeri = "C:\Raporlar\" & Yedek_Dosya_Adı
 
    If Dir("C:\Raporlar\") = "" Then MkDir "C:\Raporlar\"
 
    ThisWorkbook.SaveCopyAs Filename:=Kayıt_Yeri
 
    MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Kayıt_Yeri, vbInformation
End Sub