Excel’de bir klasördeki tüm resim veya dosya adlarını hızlıca nasıl listeleyebilirim?
Resim veya dosya koleksiyonlarıyla çalışırken, envanter yönetimi, raporlama ya da hızlı arama gibi görevler için Excel’de bir katalog veya referans listesi oluşturmak sıklıkla gereklidir. Bir klasördeki tüm resim veya dosya adlarını elle Excel sayfasına girmek — özellikle klasörde çok sayıda dosya varsa ya da içerik düzenli olarak güncelleniyorsa — hem zaman alıcı hem de hata yapmaya açıktır. Neyse ki Excel, bu süreci otomatikleştirerek doğruluk ve verimliliği önemli ölçüde artırmanın hem yerleşik hem de eklentiler veya betikler yoluyla birkaç pratik yolunu sunar.
Bu öğretici, sağdaki ekran görüntüsünde gösterildiği gibi, belirtilen bir klasördeki tüm resim veya dosya adlarını Excel çalışma sayfasına hızlıca listelemek için kullanılabilecek pratik teknikleri ayrıntılı şekilde açıklar. İster resimlerle, ister belgelerle ya da karma dosya türleriyle çalışın, tanıtılan yöntemler iş akışınızı hızlandırır ve önemli ölçüde zaman kazandırır. HIZLI GEZİNME Excel'de VBA kullanarak klasörden resim adlarını listeleme | ![]() |
Excel'de VBA kullanarak klasörden resim adlarını listeleme
Varsayılan olarak Excel, bilgisayarınızda bir klasördeki dosya veya resim adlarını çalışma sayfasına otomatik olarak içeri aktarmak için yerleşik bir özelliğe sahip değildir. Ancak bir klasördeki tüm resim dosyalarını (veya belirttiğiniz başka dosya türlerini) doğrudan Excel hücrelerine listeleyen basit bir VBA makrosu kullanabilirsiniz. Bu çözüm, bu görevi ara sıra yapıyorsanız, en yüksek düzeyde özelleştirme istiyorsanız veya ekstra eklentiler kullanmak istemiyorsanız idealdir. Yaklaşım yalnızca resimlerle değil; kod içindeki dosya filtresini istediğiniz şekilde ayarlayarak çeşitli dosya uzantıları için de sorunsuzca çalışır.
VBA yöntemi güçlüdür ancak dikkatli uygulanmalıdır: yanlış yazılmış kod hatalara yol açabilir. Betiği çalıştırmadan önce her zaman dosya yolunu ve uzantı filtrelerini kontrol edin. Ayrıca, klasör içeriğinde yapılan değişikliklerin Excel’de yeniden kod çalıştırılmadıkça otomatik olarak güncellenmeyeceğini unutmayın. İşte bu yöntemi nasıl kullanacağınız:
1. Excel'de Microsoft Visual Basic for Applications penceresini açmak için Alt+F11 tuşlarına basın.
2. Açılan pencerede Ekle > Modül seçeneğine tıklayarak yeni bir modül ekleyin – buraya VBA kodunu yapıştıracaksınız.
3. Aşağıdaki kodu modül penceresine kopyalayıp yapıştırın:
Sub PictureNametoExcel()
'UpdatebyExtendoffice
Dim I As Long
Dim xRg As Range
Dim xAddress As String
Dim xFileName As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xRg = xRg(1)
xRg.Value = "Picture Name"
With xRg.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
End With
xRg.EntireColumn.AutoFit
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
I = 1
If xFileDlg.Show = -1 Then
xFileDlgItem = xFileDlg.SelectedItems.Item(1)
xFileName = Dir(xFileDlgItem & "\")
Do While xFileName <> ""
If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
I = I + 1
End If
xFileName = Dir
Loop
End If
Application.ScreenUpdating = True
End Sub 4. Betiği çalıştırmak için F5 tuşuna basın veya VBA penceresindeki Çalıştır düğmesine tıklayın. Ardından, istediğiniz hücreyi seçmenizi isteyen bir iletişim kutusu olan Resim Ad listesi açılacaktır.
5. Hücresini onayladıktan sonra, listelemek istediğiniz resimleri veya dosyaları içeren klasörü seçmeniz için bir sonraki istem penceresi açılacaktır. Doğru dizine gidip klasörü seçin.
6. Tamam düğmesine tıklayın. Seçilen klasördeki kodda belirtilen uzantılara (.jpg, .png, .img, .ioc, .bmp) sahip tüm resim dosyalarının adları (tam yollarıyla birlikte) seçtiğiniz Excel hücresine ve altındaki hücrelere anında listelenecektir.
Not: Farklı dosya türlerini hedeflemek için kodda yer alan uzantıları şu koşul içinde değiştirerek uyarlayabilirsiniz: If InStr(1, xFileName, ".jpg") + … > 0 Then. Örneğin yalnızca Word belgelerini listelemek istiyorsanız bunu şu şekilde güncelleyin: If InStr(1, xFileName, ".docx") > 0 Then. Uzantının önüne nokta eklemeyi unutmayın (örneğin "pdf" yerine ".pdf" yazın). Birden fazla farklı dosya türünü listelemek için uzantıları örneklerde gösterildiği gibi artı işaretleriyle birleştirin.
Önemli hatırlatmalar: Bu VBA çözümü yalnızca seçilen klasörün kök düzeyindeki dosyaları listeler; alt klasörlerdeki veya gizli klasörlerdeki dosyalar, kod özyinelemeli olarak ayarlanmadığı sürece dahil edilmez.
VBA çözümü önemli ölçüde özelleştirme ve esneklik sunarken, Dosya Listesi güncellemek veya yenilemek istediğinizde her seferinde makroyu çalıştırmanız gerekir. Kodla uğraşmaktan çekinen veya tekrarlayan/otomatik bir iş akışına ihtiyaç duyan kullanıcılar için aşağıda açıklanan eklenti yaklaşımı daha verimli olabilir.
![]() | Maaşınızın artmasını ve ailenizle daha fazla zaman geçirmeyi ister misiniz? Office Tab, Microsoft Office'te çalışırken verimliliğinizi %50 artırır.
|
Excel'de Dosya Adı Listesi özelliğini kullanarak klasörden resim adlarını veya belirli Dosya Türü listeleme
Çeşitli klasörlerdeki tüm dosyaları veya resimleri düzenli olarak listelemeniz gerekiyorsa – belki de Dosya Türü seçenekleriyle, alt klasörlere kadar tarama yaparak hatta doğrudan köprüler ekleyerek – Kutools for Excel, tam olarak bu ihtiyaç için özel olarak tasarlanmış bir Dosya Adı Listesi aracı sunar. Bu araç şunları verimli bir şekilde gerçekleştirebilir:
- Herhangi bir klasördeki her dosya uzantısını kapsayacak şekilde tüm dosyaları kolay izleme veya kataloglama amacıyla bir Yeni çalışma sayfası içine listeleyin.
- Resimler, PDF’ler veya özel uzantılar gibi yalnızca belirttiğiniz Dosya Türü filtreleyip listeleyin.
- Alt dizinlerdeki dosyaları ve gizli Dosyalar ve Klasörler dahil ederek gerçekten kapsamlı bir rapor oluşturun.
Fare Eli ve Boyun Fıtığından Şimdi Vazgeçin
300 Gelişmiş Araç, Kutools for Excel ile Excel görevlerinizin %80’ini saniyeler içinde çözmenizi sağlar ve sizi binlerce fare tıklamasından kurtarır.
![]() |
|
Kutools for Excel yüklendikten sonra (hızlı ve kolay bir işlem), bir klasörden dosya veya resim adlarını listelemek için aşağıdaki adımları izleyeceksiniz:
1. Dosya Listesi görünümünü görmek istediğiniz Excel çalışma kitabını açın. KUTOOLS PLUS sekmesine gidin, İçe/Dışa Aktar seçeneğini seçin ve ardından Dosya Adı Listesi düğmesine tıklayın.
2. Dosya Adı Listesi iletişim kutusunda, öncelikle dosya veya resimlerinizin bulunduğu klasörü seçmek için
tıklayın. Gerekirse, tüm alt klasörlerdeki dosyaları dahil etmek için Alt dizinlerdeki dosyaları dahil et onay kutusunu ve gizli dosyaların bile listelenmesini sağlamak için Gizli dosyaları ve klasörleri dahil et seçeneğini işaretleyebilirsiniz.
3. Hangi dosyaları listelemek istediğinizi, Dosya türü bölümünde belirleyin. Bunu özelleştirmek için birkaç seçeneğiniz var:



4. Daha ayrıntılı izleme için Dosya boyutu birimi açılır menüsünden tercih ettiğiniz dosya boyutu birimini (Bayt, KB, MB vb.) seçin. Ayrıca, Excel’deki her dosya adına sisteminizdeki gerçek dosyaya doğrudan bağlantı eklemek istiyorsanız Hyperlink Oluştur onay kutusunu işaretleyin. Bu, özellikle daha sonra hızlı açma ve gezinme açısından son derece kullanışlıdır.
![]() | ![]() |
5. Tamam düğmesine tıklayın. Kutools, belirttiğiniz dosyaların tam listesini (isteğe bağlı olarak Dosya Boyutu, Tür, Oluşturma Zamanı vb. gibi ek bilgilerle birlikte) yeni bir çalışma sayfasında oluşturacaktır.
İpuçları ve sorun giderme: Klasörünüzde çok sayıda dosya veya alt klasör varsa işlemin tamamlanması için birkaç saniye bekleyin. Beklenen tüm dosyaların dahil edilmediğini fark ederseniz, Dosya Türü filtresini ve alt dizin seçeneklerini tekrar kontrol edin; ayrıca gizli dosya ve klasörlerin kasıtlı olmadıkça dışlanmadığından emin olun. Düzenli olarak güncellenen dizinler için oluşturulan dosya listesini çalışma kitabınızda yenilemek amacıyla Dosya Adı Listesi işlemini tekrar çalıştırmanız yeterlidir. Bu yaklaşım, tekrarlayan dokümantasyon ihtiyaçları olan ya da dijital varlıklarını toplu şekilde düzenli yöneten kullanıcılar için özellikle uygundur.
Dosya yönetimiyle ilgili başka bir kullanışlı Kutools özelliği de Bağlantı Tablosu Oluştur aracıdır; Excel dosyanızdaki tüm çalışma sayfalarını belgelemek veya bağlamak için mükemmeldir. Kapsamlı çalışma kitabı ve dosya dokümantasyonu için bu iki aracı birlikte kullanabilirsiniz:
Kutools for Excel: Excel’de karmaşık işlemleri hızla basitleştirmenize ve kolayca tamamlamanıza yardımcı olan, kullanıcı dostu ve çok yönlü araçlardan oluşan bir koleksiyon.
Dosya adlarını Windows Gezgini'nden kopyalayıp yapıştırarak listeleme
Betikler veya eklentiler olmadan hızlı ve temel ihtiyaçlar için, dosya adlarının bir listesini almak üzere Windows Explorer'ı Excel ile birlikte kullanabilirsiniz. Bu yöntem, Dosya Türü ya da gelişmiş filtreleme gerektirmiyorsanız etkilidir.
1. İstediğiniz klasörü Windows Explorer'da (Dosya Gezgini) açın.
2. Tüm dosyaları seçmek için Ctrl+A tuşlarına basın, ardından vurgulanmış dosyalardan herhangi birine sağ tıklayıp Shift tuşuna basılı tutun. Bağlam menüsünden Yolu olarak kopyala seçeneğine tıklayın.
3. Excel çalışma sayfanıza geçin, başlangıç hücresini seçin ve yapıştırmak için Ctrl+V tuşlarına basın. Bu işlem, seçili her dosya için dosya yolunu (dosya adı dahil) ekleyecektir.
Not: Bu yöntem, klasördeki dosyalar değiştirildiğinde otomatik olarak güncellenmez ve alt klasörleri içermez.
İpucu: Yalnızca dosya adlarını (tam yolları değil) görüntüleme
Yalnızca dosya adlarını (tam yolları değil) görüntülemek istiyorsanız, Excel'de yollardan dosya adlarını ayıklamak için bir formül kullanın. Örneğin, Dosya Yolu'niz A sütunundaysa, B1 hücresine şu formülü girin:
=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",255)),255)) Yalnızca dosya adlarını almak için B1'deki formülü tüm satırlara kopyalayın. Gerekirse hücre referanslarını ayarlayın.
İlgili Makaleler
Kalabalıktan nasıl öne çıkarsınız, işlerinizi kolayca halledip rahatça hayatın keyfini çıkarırsınız?
Kutools for Excel, günlük verimliliğinizi ortalama %80 artırarak ailenizle daha fazla vakit geçirme ve hayatın keyfini çıkarma imkanı sunar.
300 Gelişmiş Araçlar,80 %Excel sorunlarını çözerken artık çözümleri aramak için uğraşmaz, işlerinizi çok daha kolay tamamlarsınız.
1500 Excel senaryosunu kolayca yönetin; size her gün en az 1 saat kazandırır.
5 dakikada Excel uzmanı olun, takdir toplayın ve terfi fırsatı kapın.
Tek tıklamayla toplu işlemleri gerçekleştiren araçlarla binlerce fare tıklamasından kurtulun; fareyle vedalaşın.
Formüllerin ezberlenmesinden ve karmaşık VBA’dan kurtulun; beyninize hâlâ biraz dinlenme hakkı verin.
110.000'den fazla yüksek verimlilikte çalışanın ve 300'den fazla küresel markanın tercihi.
Sadece $39 ödeyin, ancak başkalarının $4000’lık eğitimiyle kıyaslandığında çok daha fazlasını kazanın.
Hiçbir sınırlama olmadan 30 gün boyunca ücretsiz deneyin; 30 gün içinde herhangi bir gerekçe göstermeden paranızın tamamını geri alın.
Önerilen Verimlilik Araçları
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar

İnanılmaz ama iki veya daha fazla belgeyle çalışmak, tek bir belgeyle çalışmaktan daha kolay ve daha hızlıdır.
Çalışma senaryolarınızla uğraşmak artık çok kolay; çözüm aramak için zaman harcamanıza gerek yok, yaşamınızı keyifle yaşayacak bolca vaktiniz olacak.
