Dosya Değiştirilme Tarihi

[Sevgi34]

Kapalı bir "xls" uzantılı dosyanın Değiştirilme tarihini nasıl öğrenebilirim.
Yardımlarınız için şimdiden teşekkür ederim.

 

[excel41]

kapalıdan kasıt nedir ? dosya kapalı iken son kaydetme tarihimi ?

 

[bzace]

Merhaba,
Bunun için bir Kod'a gerek var mı ?
İlgili dosyanın Özellikler kısmına girip bakabilirsiniz.

 

[mancubus]

kapalı dosya için.

http://www.cpearson.com/excel/docprop.aspx

Returning Property Values From A Closed File başlığının altında downloadable a zip file'ı tıklayarak kodu indirebilirsiniz. BAS dosyasıdır. tıklayarak txt şeklinde açıp kopyalayabilirsiniz (Attribute VB_Name ile başlayan satırı silerek). veya bir klasöre kopyalayıp VBE'de file - import file takip ederek dosyanıza kod modülü olarak ekleyebilirsiniz.

 

[Murat OSMA]

Alternatif olarak bu kodları da önerebilirim;

DefObj A, D-F
DefInt I
Public Function Özellik()
    On Error Resume Next
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Evn = Fso.GetFolder(ThisWorkbook.Path)
    For Each Dosya In Evn.Files
        Application.ScreenUpdating = False
        If Dosya <> ThisWorkbook.FullName Then
            Set Ac = Workbooks.Open(Dosya)
            For i = 1 To 40
                ThisWorkbook.Sheets(1).Cells(i + 1, 1) = ThisWorkbook.BuiltinDocumentProperties(i).Name
                ThisWorkbook.Sheets(1).Cells(i + 1, 2) = Ac.BuiltinDocumentProperties(i)
            Next i
            Ac.Close True
        End If
        Application.ScreenUpdating = True
    Next Dosya
    Set Fso = Nothing: Set Evn = Nothing: Set Dosya = Nothing
    Set Ac = Nothing: i = Empty
End Function

 

[Sevgi34]

Alternatif olarak bu kodları da önerebilirim;

DefObj A, D-F
DefInt I
Public Function Özellik()
    On Error Resume Next
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Evn = Fso.GetFolder(ThisWorkbook.Path)
    For Each Dosya In Evn.Files
        Application.ScreenUpdating = False
        If Dosya <> ThisWorkbook.FullName Then
            Set Ac = Workbooks.Open(Dosya)
            For i = 1 To 40
                ThisWorkbook.Sheets(1).Cells(i + 1, 1) = ThisWorkbook.BuiltinDocumentProperties(i).Name
                ThisWorkbook.Sheets(1).Cells(i + 1, 2) = Ac.BuiltinDocumentProperties(i)
            Next i
            Ac.Close True
        End If
        Application.ScreenUpdating = True
    Next Dosya
    Set Fso = Nothing: Set Evn = Nothing: Set Dosya = Nothing
    Set Ac = Nothing: i = Empty
End Function

Hocam öncelikle teşekkür ederim.
Amacım şu idi, Ağda "Kapalı" adında bir dosyam var. Bu dosyamın içeriği bir den çok kişiler tarafından güncelleniyor. Benin bilgisayarımdaki "Sevgi" adındaki dosyama ağdaki dosyadan güncelleme yapıyorum. Eğer Kapalı dosyanın son güncelini daha önce almışsam güncellemek istemiyorum. Bu neden ile bendeki "Sevgi" adındaki dosyamın A1 hücresine Kapalı dosyanın son değiştirilme tarihini yazmasını istiyorum. Bu vesile ile cevap veren tüm arkadaşlara teşekkür ederim.

 

[Sevgi34]

kapalı dosya için.

http://www.cpearson.com/excel/docprop.aspx

Returning Property Values From A Closed File başlığının altında downloadable a zip file'ı tıklayarak kodu indirebilirsiniz. BAS dosyasıdır. tıklayarak txt şeklinde açıp kopyalayabilirsiniz (Attribute VB_Name ile başlayan satırı silerek). veya bir klasöre kopyalayıp VBE'de file - import file takip ederek dosyanıza kod modülü olarak ekleyebilirsiniz.

vermiş olduğunuz linkteki verileri inceledim ama anlayamadım.

 

[halit3]

alternatif kod:

Sub dosyaListele3()


Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
Cells.ClearContents
Range("A1") = "Dosya Yolu"
Range("B1") = "Dosya Adı"
Range("c1") = "Dosya Boyutu"
Range("d1") = "Oluşturulma Tarihi"
Range("e1") = "Son Erişim Tarihi"
Range("f1") = "Son Düzenleme Tarihi"
Range("g1") = "Son Düzenleme Zamanı"

Set fs = CreateObject("Scripting.FileSystemObject")
For Each Dosya In fs.GetFolder(Kaynak).Files
j = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A1:A" & Rows.Count)) + 1
Cells(j, 1) = Dosya
Cells(j, 2) = Dir(Dosya)
With fs.GetFile(Dosya)
ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & j), Address:=Dosya
Range("c" & j) = Format(.Size / 1024, "#,##0.0000") & " Kb"
Range("d" & j) = Format(.DateCreated, "dd.mm.yyyy")
Range("e" & j) = Format(.DateLastAccessed, "dd.mm.yyyy")
Range("f" & j) = Format(.DateLastModified, "dd.mm.yyyy")
Range("g" & j) = Format(.DateLastModified, "hh:nn:ss")

End With
Next

MsgBox "işlem tamam !", vbInformation, "DİKKAT"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
Set Obj = Nothing
Set Klasor = Nothing

End Sub

Sub dosyaListele4()
Dosya = Application.GetOpenFilename("All Files (*.*),*.*.")
If Dosya = False Then
MsgBox "Veri alınacak dosyayı seçmediniz.", vbInformation, "DİKKAT"
Exit Sub
Else
End If

Range("A1:C2").ClearContents
Range("A1") = "Dosya Yolu"
Range("b1") = "Son Düzenleme Tarihi"
Range("c1") = "Son Düzenleme Zamanı"
Set fs = CreateObject("Scripting.FileSystemObject")

Cells(2, "a") = Dir(Dosya)
With fs.GetFile(Dosya)
Range("b" & 2) = Format(.DateLastModified, "dd.mm.yyyy")
Range("c" & 2) = Format(.DateLastModified, "hh:nn:ss")
End With
MsgBox "işlem tamam !", vbInformation, "DİKKAT"


End Sub

Sub dosyaListele5()
' dosya yolunu kendiniz buraya yazacaksınız.
Dosya = "\\Sunny-pc\users\Public\Downloads\arama.xls"

Range("A1:C2").ClearContents
Range("A1") = "Dosya Yolu"
Range("b1") = "Son Düzenleme Tarihi"
Range("c1") = "Son Düzenleme Zamanı"
Set fs = CreateObject("Scripting.FileSystemObject")
Cells(2, "a") = Dir(Dosya)
With fs.GetFile(Dosya)
Range("b" & 2) = Format(.DateLastModified, "dd.mm.yyyy")
Range("c" & 2) = Format(.DateLastModified, "hh:nn:ss")
End With
MsgBox "işlem tamam !", vbInformation, "DİKKAT"


End Sub

 

[Sevgi34]

alternatif kod:

Sub dosyaListele3()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
---
---
-
-
-
-

Range("c" & 2) = Format(.DateLastModified, "hh:mm:ss")
End With
MsgBox "işlem tamam !", vbInformation, "DİKKAT"
End Sub

halit3 hocam, Ellerinize sağlık, Süper.
T e ş e k k ü r ederim.

 

[halit3]

halit3 hocam, Ellerinize sağlık, Süper.
T e ş e k k ü r ederim.

Merhaba kodun aşağıdaki gibi kırmızı yerini değiştirn.

Range("c" & 2) = Format(.DateLastModified, "hh:[COLOR="Red"]nn[/COLOR]:ss")

bu kodda kısıltılmışı

' dosya yolunu kendiniz buraya yazacaksınız.
Dosya = "\\Sunny-pc\users\Public\Downloads\arama.xls"
Range("c2") = Format(CreateObject("Scripting.FileSystemObject").GetFile(Dosya).DateLastModified, "hh:nn:ss")

 

[Sevgi34]

Merhaba kodun aşağıdaki gibi kırmızı yerini değiştirn.

Range("c" & 2) = Format(.DateLastModified, "hh:[COLOR="Red"]nn[/COLOR]:ss")

bu kodda kısıltılmışı

' dosya yolunu kendiniz buraya yazacaksınız.
Dosya = "\\Sunny-pc\users\Public\Downloads\arama.xls"
Range("c2") = Format(CreateObject("Scripting.FileSystemObject").GetFile(Dosya).DateLastModified, "hh:nn:ss")

Teşekkürler hocam.