Çekilen veriyi farklı kaydet

[LORINSER]

Merhabalar

Çalıştırmak isteğim kodun tek eksiği kaydettiği dosyanın açılmamasıdır. Uzantı uygun değil diye hata vermekte. Değerli yardımlarınızı bekliyorum...

 

[LORINSER]

Soruma kendim cevap yazayım bari. Belki birinin işine yarar.

MsgBox "YEDEK DOSYANIZ KAYDEDiLDi", vbInformation, "Fatih İŞSEVER"
ActiveWorkbook.Save
org = ThisWorkbook.FullName
Tarih = Format(Now, "dd_mm_yyyy_hh_mm")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Kontrol_" & Tarih, FileFormat:=xlNormal, ReadOnlyRecommended:=False
Application.StatusBar = False
Application.DisplayAlerts = False
Workbooks.Open(Filename:=org).RunAutoMacros Which:=xlAutoDeactivate
Windows("Kontrol_" & Tarih + ".xls").Close True