AccessTr.neT
Dosyayı Farklı Kaydet - kaydet - kopya oluştur - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dosyayı Farklı Kaydet - kaydet - kopya oluştur (/konu-dosyayi-farkli-kaydet-kaydet-kopya-olustur.html)



Dosyayı Farklı Kaydet - kaydet - kopya oluştur - husem - 17/03/2017

merhaba
mevcut Excel dosyasını butona tıkayınca günün tarih ve saatiyle Excel dosya formatıyla belirtilen klasöre nasıl kayıt yapabiliriz acaba?

iyi çalışmalar, kolay gelsin.


Cvp: Dosyayı Farklı Kaydet - atoz112 - 17/03/2017

sayın husem,

bahsettiğiniz talebinize yönelik olarak;

ActiveWorkbook.SaveAs Filename:= "dosya_yolu_adi" & "\" & dosya_adi & "_" & Format(Now, "yyyy-mm-dd H-mm") & ".xlsx"

ya da

ActiveWorkbook.SaveAs ("dosya_yolu_adi" & "\" & dosya_adi & "_" & Format(Now(), “DD-MMM-YYYY”) & “.xlsx”)

veyahut da

ActiveWorkbook.SaveAs Filename:= Application.ActiveWorkbook.Path & "\" & dosya_adi & "_" & Format(Now(), "yyy_mm_dd_hh_mm" & ".xlsx")

benzeri kod satırlarını kullanmak sureti ile deneyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.


Cvp: Dosyayı Farklı Kaydet - husem - 18/03/2017

Sn atoz112,
teşekkür ederim, 

ayrıca forumda arama yaparken bazılarının faydalanabilmesi için eklemekte fayda gördüklerim:

mevcut dosyayı kopyalamadan yada farklı kaydetmeden önce kaydetmek istersek
ActiveWorkbook.Save

belirlediğimiz klasöre kopya oluşturmak için
ActiveWorkbook.SaveCopyAs Filename:= Application.ActiveWorkbook.Path & "\" & dosya_adi & "_" & Format(Now(), "yyy_mm_dd_hh_mm" & ".xls")