Makro ile Farklı Kaydet Dialog Penceresi

[OoParadiSeoO]

Arkadaşlar Merhaba,
Application.Dialogs(xlDialogSaveAs).Show komutu ile Farkli Kaydet Dialog penceresini çağırdığımızda Dosya Adi default Kitap1 şeklinde gelmekte,
Benim istediğim Default dosya adi:
tarih=Format(Now, "dd.mm.yyyy") olsun. Yapılabiliermi..
Yardımlarınız için teşekkürler,

 

[Mahmut Bayram]

Sub farkli_kaydet()
Dim MyFilename As String
MyFilename = Format(Now, "dd-mm-yyyy")
Application.Dialogs(xlDialogSaveAs).Show MyFilename
End Sub

 

[OoParadiSeoO]

Merhaba desteğiniz için çok teşekkür ederim, Pekala dialog penceresini gostermeden dosyayı masaüstüne kaydedebilir mi? Yalnız masaüstü tarifi kullanıcı özelinde değil de, makroyu herhangi bir bilgisayardan çalıştırdığım da masaüstüne kaydetsin istiyorum .. Şimdiden teşekkürler,

 

[acar6783]

yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")

Hangi pc olursa olsun masaüstünü gösterir

 

[Mahmut Bayram]

Bunu deneyin

Sub farkli_kaydet()
Dim myfilename As String
myfilename = Format(Now, "dd-mm-yyyy")
ChDrive "c"
ChDir CreateObject("WScript.Shell").specialfolders("desktop")
Application.Dialogs(xlDialogSaveAs).Show myfilename
End Sub

veya bunu

Sub file_date_save()
Dim filePath As String
Application.EnableEvents = False
Application.DisplayAlerts = False
filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
ThisWorkbook.SaveAs filePath & Format(Date, "dd-mm-yyyy") & ".xlsm", FileFormat:=52
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub