Tarihi Dosya Adı Yapmak(Yedekleme)

[igmox]

slm,

üzerinde çalışılan sayfayı 201001082059.xls şeklinde o anın tarih ve saatine göre C: sürücüsüne kaydedip sayfayı kapatacak bir makroyu nasıl yazabiliriz.
yardımcı olanlara teşekkür ederim.

 

[Ömer]

Merhaba,

Linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=78930&page=2

.

 

[hamitcan]

Kendim için yaptığım kodu vereyim size. Kodu kendinize göre uyarlayın.

Private Sub CommandButton2_Click()
'*******hamitcan 08/07/2009**********************
    Dim XLObj
    Dim XLSheet
    Dim DosyaIsmi As String, YOL As String
    YOL = "C:\Yedek\"
    Set XLObj = CreateObject("Excel.Application")
        XLObj.Application.Visible = False
        XLObj.Workbooks.Add
    
    Set XLWb = XLObj.ActiveWorkbook
    Set XLSheet = XLWb.ActiveSheet
        XLSheet.[A1:O5000] = Workbooks("DENEME").Sheets("DATA").[A1:O5000].Value
                DosyaIsmi = YOL & Format(Now, "ddmmyy hhss") & ".xls"
        XLSheet.SaveAs DosyaIsmi, xlExcel8
'        XLWb.Activate
        XLWb.Close
    MsgBox "Sayfa Yedeklenmiştir."
End Sub