Dosya içerisindeki en en son eklenen excel sayfasına köprü

[consiglier]

Klasör içerisindeki en en son eklenen excel sayfasına köprü

Merhaba
Bu işlemin Makro yardımı ile yapılabileceğini düşünerek
buraya yazıyorum.

Sorum şu arkadaşlar;
Excelde ilgili linke tıklayınca bir doysa içerisindeki excel sayfalarından en son eklenenin gelmesini istiyorum.
Örneğin bir personal listesi mevcut ancak tek liste excel sayfasından güncellenmek yerine
değişiklik aynı xls üzerinde yapılıp (persliste-S1D1 gibi biri isimle) klasöre farklı kaydediliyor, İlk xls perslist-S1D0.
Bir kişi listenin en güncel halini görmek istediğinde tıklayınca personel dosyasındaki en son eklenen liste çağrılacak...

Nasıl yapabilirim, daha önce böyle bir çalışma yapmış arkdaşlar tecrübelerini paylaşırsa sevinirim.

Umarım sorunu iyi ifade edebildim.
Örnek dosya ektedir. Örnek olsun diye sadece bir klasör ve linkli örnek gönderiyorum.
Teşekkürler...

 

[hamitcan]

Örnek dosya ekleyin.

 

[consiglier]

arkadaşlar yokmu bu konuda yardımcı olabilecek...
kolay gelsin

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. personel klasörünüzün yolunun "c:\personel" olduğu kabul edilmiştir. Ayrıca personel klasöründe sadece "perslist-S1D..." şeklinde artan isimle sıralandırılan dosyalar bulunmalıdır.

Sub dosyaac()
dosyasayisi = CreateObject("Scripting.FileSystemObject").GetFolder("c:\personel").Files.Count
Workbooks.Open Filename:="c:\personel\perslist-S1D" & dosyasayisi - 1 & ".xls"
End Sub

 

[consiglier]

Aşağıdaki kodu deneyin. personel klasörünüzün yolunun "c:\personel" olduğu kabul edilmiştir. Ayrıca personel klasöründe sadece "perslist-S1D..." şeklinde artan isimle sıralandırılan dosyalar bulunmalıdır.

Sub dosyaac()
dosyasayisi = CreateObject("Scripting.FileSystemObject").GetFolder("c:\personel").Files.Count
Workbooks.Open Filename:="c:\personel\perslist-S1D" & dosyasayisi - 1 & ".xls"
End Sub

üstad bu algoritma iş görebilir ama dosya isimlendirme daha farklı sadece D sonundaki sayı değişmiyo S ninde değişebiliyor,(art ibirde tarih ekleniyormuş:S1D0-92005 oluyormuş dosya adının sonu)
Getfolder methoduyla klasör içine en son koplanan dosyayı açmanın yolunu arıyorum ben
bu şekilde isimlerle ugrasmadan en son oluşturulan dosyası açabiliriz?
Forumda aradım ancak benim istediğim gibi bir mesaj bulamadım
Yardımcı olacak arkdaşlara şimdiden teşekkür

 

[Levent Menteşoğlu]

Bu durumda klasöre kaydedilecek dosyaların oluşturulma zamanlarını karşılaştıran bir yöntemi tercih etmek doğru olacaktır. Aşağıdaki gibi deneyebilirsiniz.

Sub sondosyayiac()
Set klasor = CreateObject("Scripting.FileSystemObject").GetFolder("c:\personel")
For Each dosya In klasor.Files
If dosya.DateCreated > oncekidosya Then
dosyayolu = dosya.path
oncekidosya = dosya.DateCreated
End If
Next
Workbooks.Open dosyayolu
End Sub

Kaynak: http://www.dailydoseofexcel.com/archives/2009/05/01/opening-the-newest-file-in-a-folder-with-vba/

 

[consiglier]

Sub dosyaac()
Dim dizin, BakilanDosya, EnSonDosya
Set dizin = CreateObject("Scripting.FileSystemObject").GetFolder("c:\").Files
tarih = DateValue("1.1.1")
For Each BakilanDosya In dizin
If BakilanDosya.datecreated > tarih And Right(BakilanDosya.Name, 4) = ".xls" Then
Set EnSonDosya = BakilanDosya
tarih = BakilanDosya.datecreated
End If
Next
If Not IsEmpty(EnSonDosya) Then Workbooks.Open EnSon

Kodu işimi gördü, cevap veren herkese çok teşekkürler
kolay gelsin