Sayfayı Kaydederken Dosya Adını Otomatik Verme

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile Sayfa1 sayfasını bilgisayara kaydederken, Farkı Kaydet penceresi geliyor isim veriyorum ve dosyanın kaydedileceği yeri seçiyorum ve dosya türünü seçiyorum ve kaydet butonu ile kaydediyorum.

Yapmak istediğim ise Farklı kaydet penceresi çıkmasın. Dosya adını Sayfa2 A1 ve B1 (A1 ve B1 hücrelerinde ay ve yıl bilgileri var) hücrelerindeki değerleri birleştirerek versin.
Ve dosya türünü de "Excel 97-2003 Çalışma Kitabı" olarak seçerek masaüstüne kaydetsin istiyorum. Böyle birşey mümkün müdür? Mümkün ise yardımcı olabilir misiniz.

Sheets("SAYFA1").Select
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close

 

[ahmed_ummu]

Aşağıdaki gibi dosya adını sayfadan alıyor ve "E" sürücüsüne kaydediyor ama "e" sürücüsü yerine masaüstüne kaydedecek ve dosya türü de
"Excel 98-2003 Çalışma Kitabı" olarak kaydedecek.

Set s = Sheets("Sayfa2")
Sheets("Sayfa1").Copy
ActiveWorkbook.SaveAs Filename:="e:\" & s.Range("a1").Value & "-" & s.Range("b1").Value & ".xls"
ActiveWorkbook.Close