Aktif Calisma Kitabini Farkli Kaydetme

document-save-as

[quote author=”- husem“]

örneğin stok.xls adlı çalışma sayfasının yedeğinin alınmasını istiyorum (bun komut verdiğimde). yedek alırken stok.xls dosyasını önce kaydedecek sonra bu dosya hangi klasörde ise o dosyanın bir kopyasını tarih_yedek.xls adıyla kopyasını alacak. uğraştım fakat olmadı. benim yazdığım komut şudur.

Sub Makro1()
‘Önce Orijinal dosyayı kaydet
ActiveWorkbook.Save

‘Orijinal dosya açık iken copy komutu ile kopyala
Kaynak_Dosya=”c:Örnek.xls”
Hedef_Dosya =”c:4.03.2013 Yedek.xls”
Filecopy Kaynak_Dosya,Hedef_Dosya

End Sub

yardımcı olursanız sevinirim, kolay gelsin[/quote]

Merhaba yaptiginiz sekilde acik bir calismayi kaydedemiyoruz diye biliyorum, save as yontemini kullanabilirsiniz, kapali bir dosyada kodunuz ise yarayacaktir. asagidaki sekliyle deneyiniz.

Private Sub WorkbookSaveAs()

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "Yedek.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


3 + 4 =