Makro ile Farklı ve Özellikli Kaydetme Hakkında

[alioltulu]

Merhaba;

Makro ile otomotik hazırladığım dosyalar mevcut. Bu Excel dosyalarını farklı kaydetmek yani kopyasını farklı bir konuma çıkarmak istiyorum yalnız excel dosyalarının isminin sonuna tarih eklemek istiyorum acaba mümkün mü? Bu konu hakkında yardımlarınızı beklemekteyim. Mesela "Günlük Satış Takip Raporu.xls" masaüstünde bulunan bu dosyayı kopyalamak ve yine masaüstünde bulunan "Günlük Raporlar" adlı klasörün içine "Günlük Satış Takip Raporu - 04.11.2015.xls" olarak kaydetmek istiyorum. Excel dosyanın isminin sonuna günün tarihini atması mümkünmüdür acaba_?

 

[Huseyinkis]

Sub Kayıt()
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Günlük Raporlar\Günlük Satış Takip Raporu - " & Format(Date, "DD.MM.YYYY") & ".xls", FileFormat:=56
Application.DisplayAlerts = True

 

[alioltulu]

Çok Teşekkür ediyorum sayın hocam. Çok işime yaradı.