Dosyanın değiştirilme tarihini hücreye yazmak mümkün mü?

[Emine Şahin]

Merhaba arkadaşlar.
Aşağıdaki resimde olduğu gibi excel dosyalarımızın kaydedildiği bir klasör var.
Bu klasör içerisinde 400 dosya var. Bu sebeple işin içinden çıkmak çok zor.
Burada yapmak istediğim dosyaların "değiştirme tarihi" bilgisini excel sayfasında A sütununa yazdırmak. Her dosyada satır sayısı farklı. Örneğin kimi dosyada A10 kiminde A20 satıra kadar kayıt var. Bu satır sayısınca "Değiştirme Tarihi" bilgisini en kolay yoldan nasıl yazabiliriz.

 

[Necdet]

Merhaba,

Doğru mu anladım bilmiyorum. Dosyanın saklandığı tarihi a sütununa yazar.
Aşağıdaki kodu ilgili dosyanın ThisWorkbook'un kod sayfasına kopyalayıp deneyiniz.

Private Sub Workbook_Open()
    
    Dim i As Long
    
    Sheets("Sayfa1").Select
    
    i = Cells(Rows.Count, "A").End(3).Row + 1
    
    Cells(i, "A") = ActiveWorkbook.BuiltinDocumentProperties("Last print date")
 
End Sub

 

[Murat OSMA]

Necdet Bey, müsadenizle ben de özellikler ile ilgili örnek bir kod paylaşmak istiyorum..

Sub Calisma_Kitabi_Ozellikleri()
    With ActiveWorkbook
        Cells(1, 2).Value = .BuiltinDocumentProperties("Title").Value
        Cells(2, 2).Value = .BuiltinDocumentProperties("Subject").Value
        Cells(3, 2).Value = .BuiltinDocumentProperties("Author").Value
        Cells(4, 2).Value = .BuiltinDocumentProperties("Manager").Value
        Cells(5, 2).Value = .BuiltinDocumentProperties("Company").Value
        Cells(6, 2).Value = .BuiltinDocumentProperties("Category").Value
        Cells(7, 2).Value = .BuiltinDocumentProperties("Keywords").Value
        Cells(8, 2).Value = .BuiltinDocumentProperties("Comments").Value
        Cells(9, 2).Value = .BuiltinDocumentProperties("Hyperlink base").Value
        Cells(10, 2).Value = .BuiltinDocumentProperties("Creation date").Value
        Cells(11, 2).Value = .BuiltinDocumentProperties("Last save time").Value
        Cells(12, 2).Value = .BuiltinDocumentProperties("Last author").Value
    End With
End Sub

İyi günler...

 

[mustafaine1]

Tesekkurler arkadaslar, reader`dan konuyu gorunce ilgilenmek istemistim ama cevaplariniz coktan konuyu suslemis

 

[Emine Şahin]

Merhaba,

Doğru mu anladım bilmiyorum. Dosyanın saklandığı tarihi a sütununa yazar.
Aşağıdaki kodu ilgili dosyanın ThisWorkbook'un kod sayfasına kopyalayıp deneyiniz.

Private Sub Workbook_Open()
    
    Dim i As Long
    
    Sheets("Sayfa1").Select
    
    i = Cells(Rows.Count, "A").End(3).Row + 1
    
    Cells(i, "A") = ActiveWorkbook.BuiltinDocumentProperties("Last print date")
 
End Sub

Necdet Bey, müsadenizle ben de özellikler ile ilgili örnek bir kod paylaşmak istiyorum..

Sub Calisma_Kitabi_Ozellikleri()
    With ActiveWorkbook
        Cells(1, 2).Value = .BuiltinDocumentProperties("Title").Value
        Cells(2, 2).Value = .BuiltinDocumentProperties("Subject").Value
        Cells(3, 2).Value = .BuiltinDocumentProperties("Author").Value
        Cells(4, 2).Value = .BuiltinDocumentProperties("Manager").Value
        Cells(5, 2).Value = .BuiltinDocumentProperties("Company").Value
        Cells(6, 2).Value = .BuiltinDocumentProperties("Category").Value
        Cells(7, 2).Value = .BuiltinDocumentProperties("Keywords").Value
        Cells(8, 2).Value = .BuiltinDocumentProperties("Comments").Value
        Cells(9, 2).Value = .BuiltinDocumentProperties("Hyperlink base").Value
        Cells(10, 2).Value = .BuiltinDocumentProperties("Creation date").Value
        Cells(11, 2).Value = .BuiltinDocumentProperties("Last save time").Value
        Cells(12, 2).Value = .BuiltinDocumentProperties("Last author").Value
    End With
End Sub

İyi günler...

Merhaba Necdet Bey ve Murat Bey. Ha unutmadan Murat Bey sizi gözüm bir yerden ısırıyor sanki

Umarın ben doğru anlatabildim.
Resimde gösterdiğim dosyaların saklandığı klasörün içi. Bu dosyaların içerisinde bazı kayıtlar var.

Her sütun A dan AL sütununa kadar dolu. Ama satırlar değişken.
Veri kaydına göre bazıları 10 satır bazıları 20 satır. Bana bu dosyalarda lazım olan tarih kaydı girilmemiş.
Ama klasörü açtığımızda (resimdeki gibi) Değiştirilme tarihleri veriliyor.
400 dosyayı tek tek açıp değiştirilme tarihlerini A sütununa yazmak ne kadar sürer takdiriniz.
Burada artı olarak belirteyim A sütunu dolu. Ama benim işime yaramayacağı için burayı kullanmak istedim.
Verdiğiniz kodları ThisWorkbook'a uyguladım. Kaydedip kapatmak istediğimde de bana SYLK ile uyumsuz özellikler olabileceğini sordu.
Evet dedim kaydetme penceresi çıktı. Kaydettim ve kapattığım dosyamı tekrar açtım.
MAkro güvenliğini de düşük duruma getirdim. Ama olmadı maalesef.
Sayfa1 hatası verdi. Sayfanın adı Dosya adıyla benzeşiyor ve her sayfanın adı da değişken.
Örneğin: 34L688_C_01032011_181419 gibi... Burada bold yaptığım yerde sanırım dosyanın tarihi.

Bütün bunlara rağmen konuda muvaffak olursak, tek tek bütün dosyalara bunu mu uygulamalıyız.
Tek tek yazsak sanki daha kolay gibi. :biggrin:

Bir konuda kapalı dosyalardan veri almak işleniyordu. Sayın Orion'un paylaştığı bir çalışma çok güzel.
Biraz karıştırdım ve sanki istediğimiz verileri değiştirebileceğimiz kanısına vardım. Ama tam anladığımı söyleyemem.
Belki bu dosyada burada işimize yarayabilir mi bilemiyorum?..

Ben dosyalardan birini örnek olarak ekliyorum.
Saygılarımla.

 

[Murat OSMA]

Beni gözünüz bir yerden ısırıyor mu ? :dusun::dusun:
Daha önce ısırmıyor muydu ? :hiho:
Nereden acaba ? :dusun: