- Katılım
- 16 Eylül 2010
- Mesajlar
- 34
- Excel Vers. ve Dili
- 2007
Merhaba;
Aşağıdaki kod ile Yedeği C:\YEDEK konumuna alabiliyorum. Fakat ben;
- Gözat penceresi ile yedeğin nereye alınacağını seçmek istiyorum.
- Yedek alınan sayfada userfırmu açmak için gereken butonda var yedek alırken onuda dahil ediyor. Onu almamasını istiyorum.
Yardımcı olur musunuz.
Aşağıdaki kod ile Yedeği C:\YEDEK konumuna alabiliyorum. Fakat ben;
- Gözat penceresi ile yedeğin nereye alınacağını seçmek istiyorum.
- Yedek alınan sayfada userfırmu açmak için gereken butonda var yedek alırken onuda dahil ediyor. Onu almamasını istiyorum.
Yardımcı olur musunuz.
Kod:
Private Sub CommandButton7_Click()
YesNo = MsgBox("Data Yedeği 'C:\YEDEK\ ' Konumuna alınacaktır. Onaylıyor musunuz?", vbYesNo + vbInformation, "DATA'YI YEDEKLE")
Select Case YesNo
Case vbYes
If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK") Then
CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK")
End If
Sheet2.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\YEDEK\" & ActiveSheet.Name & "_" & Format(Now(), "mm.dd.yy_hh.mm") & ".xlsx"
ActiveWorkbook.Close
Application.Visible = False
End Select
End Sub
Son düzenleme: