• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Dosya Son Kayıt Tarihi

Katılım
15 Haziran 2005
Mesajlar
40
Mrb,

Bir xls'in son kayıt tarihini elde edebileceğim bir koda ihtiyacım var.

Yardımcı olan arkadaşlara şimdiden teşekkür ederim.
Saygılarımla,
 
1. bunu açılış makrosu ile öğrenebilirsiniz. Unutmayın dosyanın kaydedilmesi ve makro etk. şarttır.
MsgBox ThisWorkbook.BuiltinDocumentProperties("Last Save Time").Value
2. bunu da ister modüle ister açılış modülüne
MsgBox "Bu program enson : " & Date & " tarihinde ," _
& " saat : " & Time & " de kullanıldı! "
 
[vb:1:4ddcc2e1f1]Sub Info()
Dim MyFile As String, MyInfo As String
MyFile = "C:\Test.xls"
Workbooks.Open MyFile
MyInfo = ActiveWorkbook.BuiltinDocumentProperties(12)
MsgBox MyInfo
Workbooks(Dir(MyFile)).Close
End Sub
[/vb:1:4ddcc2e1f1]

Edit: Kodlarda bahsedilen "C:\Test.xls" dosyasının bilgisayarda mevcut ve daha önceden en azından 1 kere kaydedilmiş olması gereklidir.
 
Veya;

[vb:1:59eac6d220]Sub FileDetails()
Dim fs, f
FilePath = "C:\Test.xls"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FilePath)
FileSize = f.Size / 1024
Folder = f.ParentFolder
LastModified = Format(f.DateLastModified, "dd.mmmm.yyyy")
LastAccessed = Format(f.DateLastAccessed, "dd.mmmm.yyyy <<>> hh:mm")
MsgBox "Dosya boyutu :" & FileSize & " Kb" & vbCrLf _
& "Son degisiklik : " & LastModified & vbCrLf _
& "Son Kullanim : " & LastAccessed
Set f = Nothing
Set fs = Nothing
End Sub
[/vb:1:59eac6d220]
 
Sayın Haluk çok teşekkürler.
 
Geri
Üst