Microsoft Excel'de Bir Klasördeki En Yeni Dosya Nasıl Açılır
Klasörde en son kaydedilen dosyayı sadece makro düğmesine tıklayarak açmanıza izin verecek bir VBA kodu istiyorsanız.
Soru): 10 kişilik bir ekibim var ve acilen ekip üyesi tarafından kaydedilen en son dosyayı açmama yardımcı olacak bir makro arıyorum, böylece dosyanın kaydedildiği yola gitmek zorunda kalmam.
Aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Çalışma sayfası modülüne aşağıdaki kodu girin
Seçenek Açık
Alt YeniDosya()
MyPath'i Dize Olarak Karart
MyFile'ı Dize Olarak Karart
LastFile As Dize Dim
Dim SonTarih Olarak Tarih
Loş LMD Tarih Olarak
MyPath = "C:\Kullanıcılar\Belgeler\"
Doğruysa(Yolum, 1) "\" Sonra Yolum = Yolum & "\"
MyFile = Dir(MyPath & "*.xls", vbNormal)
Len(MyFile) = 0 ise
MsgBox "Dosya bulunamadı…", vbExclamation
Alt Çıkış
Bitir
Len(MyFile) > 0 iken Yap
LMD = FileDateTime(MyPath & MyFile)
LMD > En SonTarih ise
LastFile = Dosyam
SonTarih = LMD
Bitir
Dosyam = Yön
Döngü
Workbooks.Open MyPath ve En Son Dosya
Alt Bitiş
Bu sayede makro kod kullanarak ekip üyesi tarafından kaydedilen en son dosyayı açabileceğiz.
İndir - Bir klasördeki en yeni dosya nasıl açılır - xlsm