- Katılım
- 15 Temmuz 2012
- Mesajlar
- 2,790
- Excel Vers. ve Dili
- Ofis 2021 TR 64 Bit
Merhaba, hayırlı geceler.
Ekte gönderdiğim excel dosyasında butona bastığımda masaüstüne dosyanın yedeğini alıyor.
Benim yapmak istediğim butona bastığımda sadece Sayfa1'i (SİSTEM isimli sayfa) masaüstüne
makrosuz olarak Excel 97-2003 Excel Çalışma Kitabı olarak kaydetmesini istiyorum.
Yardımcı olur musunuz?
.
Ekte gönderdiğim excel dosyasında butona bastığımda masaüstüne dosyanın yedeğini alıyor.
Benim yapmak istediğim butona bastığımda sadece Sayfa1'i (SİSTEM isimli sayfa) masaüstüne
makrosuz olarak Excel 97-2003 Excel Çalışma Kitabı olarak kaydetmesini istiyorum.
Yardımcı olur musunuz?
Kod:
Sub YedekAlma()
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK"
If ds.FolderExists(yer) = False Then
ds.CreateFolder yer
End If
If ThisWorkbook.Path = yer Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then
MsgBox "İptal ettiniz.", vbInformation, "DURUM"
Exit Sub
End If
dosyaadi = ThisWorkbook.FullName
uzanti = "." & ds.GetExtensionName(dosyaadi)
Range("AB1").FormulaR1C1 = "=MID(CELL(""DOSYAADI"",RC[-1]),SEARCH(""]"",CELL(""DOSYAADI"",RC[-1]))+ 1,255)"
isim = Sheets("SİSTEM").Range("AB1").Value
yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & " " & isim & uzanti
ds.CopyFile dosyaadi, yol
Range("AB1").ClearContents
MsgBox ("Dosyanın yedeği alındı."), vbInformation, "DURUM"
End Sub
Ekli dosyalar
-
21.9 KB Görüntüleme: 6