• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Farklı kaydetme yolu makrosu

  • Konbuyu başlatan Konbuyu başlatan saroz
  • Başlangıç tarihi Başlangıç tarihi
Katılım
3 Aralık 2007
Mesajlar
43
Excel Vers. ve Dili
Office XP Professional
Arkadaşlar aşağıdaki makroya kullandığım ağa bağlı bilgisayarda
"L:\1201_GENEL EVRAK\SAROZ\SAROZ2010\APS DOSYASI\NİSAN 2010"
yolu nasıl kodlanır.

Sub Kaydet()
Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
Application.PathSeparator & "APS-" & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Ad
ActiveWorkbook.Close
End Sub
 
ActiveWorkbook.SaveAs Filename:="D:\algilamak\algilamak.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

işinizi gorurmu
 
Sub Kaydet()
Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
Application.PathSeparator & "APS-" & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="L:\1201_GENEL EVRAK\SAROZ\SAROZ2010\APS DOSYASI\NİSAN 2010"
ActiveWorkbook.Close
End Sub
 
Farklı kaydetme...

Sayın Parametre EK dosyada gerekli açıklamaları yaptım. Yalnız cevabınızı hemen deneyemem. Çünkü bilgisayar işyerinde. Yapacağının makroyu ancak yarın test edebilirm ve size akşam dönebilirim. Kolay gelsin.
 

Ekli dosyalar

Geri
Üst