Skip to main content

Bir klasördeki resim adlarını/dosya adlarını Excel hücrelerine nasıl hızlıca listelerim?

Author: Sun Last Modified: 2025-06-10

Bu eğitimde, aşağıdaki ekran görüntüsünde gösterildiği gibi, belirli bir klasördeki tüm resim adlarını veya dosya adlarını bir Excel sayfasında hızlıca listelemek için bazı ipuçları sunacağım.

HIZLI GEZİNME

Excel'de VBA ile bir klasörün resim adlarını listeleme
Dosya Adı Listesi ile Excel'de bir klasörün resim adlarını veya belirli formatlı dosya adlarını listeleme
Örnek dosyayı indir

A screenshot of listing picture names from a folder into Excel cells

Excel'de VBA ile bir klasörün resim adlarını listeleme

Excel'de, seçtiğiniz bir klasördeki tüm resim adlarını otomatik olarak bir hücrede listeleyen yerleşik bir işlev bulunmamaktadır, ancak burada bu işi hızlıca çözmek için size yardımcı olabilecek bir VBA kodum var.

1. Excel'de, ardından Microsoft Visual Basic for Applications penceresini açmak için + tuşlarına basın.

2. Açılan pencerede, yeni bir Modül betiği oluşturmak için Ekle > Modül'ü tıklayın.

3. Aşağıdaki kodu kopyalayın ve yeni Modül betiği penceresine 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. Tuşa basın F5 tuşuna basın, ardından resim adlarını yerleştireceğiniz bir hücre seçmeniz için bir iletişim kutusu açılacaktır.
A screenshot of the folder selection dialog for listing picture names in Excel

5. Tıklayın Tamam ve Gözat iletişim kutusunda resim adlarını listelemek istediğiniz klasörü seçmeye devam edin.
A screenshot of the folder selection dialog for listing picture names in Excel

6. Tıklayın Tamam, şimdi seçilen klasördeki tüm resim adları Excel'de listelenmiştir.
A screenshot showing listed picture names in Excel cells

Not: VBA kodunda, jpg/png/… gibi dosya uzantılarını değiştirebilirsiniz. Örneğin, doc formatındaki dosya adlarını listelemek istiyorsanız, kod satırını If InStr(1, xFileName, ".doc") > 0 Then şeklinde değiştirin.

Eğer günlük işlerinizde Excel hücresinde bir klasörün tek bir veya tüm formatlarının dosya adlarını listelemeniz gerekiyorsa, kod karmaşıktır ve kolayca yönetilemez, ancak aşağıdaki yöntemle bu işi hızlıca çözebilirsiniz.


ot move

Ailen Zamanınızı Aile İle Geçirmek İçin Zamandan Tasarruf Etmenizi Sağlayan Bir Maaş Artışı İster Misiniz?

Office Tab, Microsoft Office'de Çalışırken Verimliliğinizi %50 Artırır

İnanılmaz, iki veya daha fazla belgede çalışmak, tek bir belgede çalışmaktan daha kolay ve daha hızlı.

Tanınmış tarayıcılara kıyasla, Office Tab'ın sekmeli aracı daha güçlü ve daha verimlidir.

Her gün yüzlerce fare tıklamasını ve klavye yazısını azaltın, artık fare eline veda edin.

Eğer genellikle birden fazla belgede çalışıyorsanız, Office Tab sizin için büyük bir zaman tasarrufu sağlayacaktır.

30-günlük ücretsiz deneme, kredi kartı gerekli değil.

Daha Fazla OkuÜcretsiz İndir


Dosya Adı Listesi ile Excel'de bir klasörün resim adlarını veya belirli formatlı dosya adlarını listeleme

İşte size Kutools for Excel'deki Dosya Adı Listesi aracı, bu araç şunları yapabilir:

>> Yeni bir çalışma sayfasında bir klasördeki tüm dosya formatlarındaki tüm dosya adlarını listeler;

>> Belirttiğiniz bir veya birkaç dosya formatındaki dosya adlarını Excel'e listeler;

>> Alt klasörleri ve gizli dosyaları ve klasörleri içeren dosya adlarını Excel'e listeler.

Fare Eli ve Servikal Spondilozdan Artık Veda Edin

300 gelişmiş Kutools for Excel aracı, 80% Excel görevini saniyeler içinde çözerek sizi binlerce fare tıklamasından kurtarır.

1500 çalışma senaryolarıyla kolayca başa çıkın, çözüm aramak için zaman harcamayın, hayatınızı keyifle geçirmek için daha fazla zamanınız olsun.

110.000'den fazla verimli insanın günlük üretkenliğini 80% artırın, tabii ki siz de dahil olmak üzere.

Acı veren formüller ve VBA ile uğraşmayın, beyninize dinlenme ve keyifli bir çalışma havası verin.

30-gün boyunca tüm özellikleri içeren ücretsiz deneme, hiçbir sebep göstermeden 30-gün para iadesi.

Daha İyi Bir Beden Daha İyi Bir Hayat Yaratır.

Kutools for Excel'i ücretsiz olarak yükledikten sonra lütfen aşağıdaki işlemleri yapın:

1. Dosya adlarını listelemek istediğiniz çalışma kitabını etkinleştirin, ardından tıklayın Kutools Plus > İçe Aktar/Dışa Aktar > Dosya Adı Listesi.
A screenshot of Kutools Filename List option under Import/Export in Excel

2. Dosya Adı Listesi diyalog kutusunda, önce  A screenshot of folder selection button dosya adlarını listelemek istediğiniz bir klasör seçmek için tıklayın, ardından ihtiyacınıza göre Alt dizinlerdeki dosyaları dahil et ve Gizli dosyaları ve klasörleri dahil et onay kutularını işaretleyebilirsiniz.
A screenshot of Filename List dialog with subdirectory and hidden files options

3. Ardından, Dosya türü bölümünde listelemek istediğiniz dosya formatını seçin.

Tüm dosyalar seçeneğini işaretleyin, bu durumda seçilen klasördeki tüm dosya formatlarındaki tüm dosya adlarını listeler.
A screenshot of Filename List dialog with All files option
Ortak seçeneğini işaretleyin ve açılır listeden listelemek istediğiniz belirli dosya formatını seçin, ardından seçtiğiniz dosya formatındaki tüm dosya adlarını listeler.
A screenshot of Filename List dialog with Common file formats option
Belirt seçeneğini işaretleyin, ardından metin kutusuna (virgülle ayırarak) listelemek istediğiniz dosya uzantılarını yazın, bu durumda yalnızca girilen dosya uzantılarına sahip dosya adlarını Excel'de listeler.
A screenshot of Filename List dialog with Specify option for file extensions

4. Dosya boyutu birimi bölümündeki açılır listeden ihtiyacınıza göre boyut birimini seçin, eğer dosya adlarına bir bağlantı oluşturmak istiyorsanız, Hiperlink oluştur seçeneğini işaretleyin.

A screenshot of selecting file size unit options in Filename List A screenshot of Create hyperlinks enabled in Filename List

5. Tıklayın Tamam, dosya adlarını ve bazı dosya bilgilerini listelemek için yeni bir çalışma sayfası oluşturulacaktır.
A screenshot of Excel with listed file names and details using Kutools Filename List

İpucu: Eğer Excel'deki tüm çalışma sayfası adlarını listelemek istiyorsanız, Kutools for Excel'in Çalışma Sayfası Adı Listesi Oluştur aracını uygulayabilirsiniz, bu araç tüm bağlantılı çalışma sayfası adlarını listelemek için yeni bir çalışma sayfası oluşturur.
A gif showing how to create a list of sheet names in Excel using Kutools

Kutools for Excel:+ kullanışlı el araçları, Excel'deki karmaşık görevleri birkaç tıklamaya indirger.


Örnek Dosyayı İndir

sample


Kalabalıktan Nasıl Farklılaşacağınızı, Kolayca Çalışıp Rahatça Hayatı Keyiflemenizi Sağlar mı?

Kutools for Excel, her gün ortalama olarak 80% verimliliğinizi artıracak, ailenizle zaman geçirmek ve yaşamdan zevk almak için daha fazla zamanınız olacak.

300 gelişmiş araçlar 80% Excel sorunlarını çözer, artık çözüm aramak için mücadele etmezsiniz, işleri daha kolay tamamlarsınız.

1500 Excel senaryolarını kolayca yönetin, her gün en az 1 saat kazandırır.

5 dakikada bir Excel uzmanı olun, insanlardan takdir toplayın ve terfi fırsatı yakalayın.

Tek tıklamayla yapılan işlemler toplu işlemleri halleder, binlerce fare tıklamasından kurtulun, 'fare eli' denen duruma veda edin.

Ezberci formül ve karmaşık VBA'den kurtulun, beyninize dinlenme izni verin.

110.000'den fazla verimli çalışan ve 300'den fazla dünya çapında ünlü şirketin tercihi.

Sadece 39 dolarlık bir ücret karşılığında, diğer insanların 4000 dolarlık eğitiminden daha değerli bir deneyim.

30 gün boyunca sınırsız ücretsiz deneme, hiçbir sebep göstermeden 30-gün içinde tam iade garantisi.


Önerilen Verimlilik Araçları

En İyi Ofis Verimlilik Araçları

🤖 Kutools AI Asistanı: Veri analizinde devrim yaratın: Akıllı Yürütme   |  Kod Oluştur  |  Özel Formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur  |  Geliştirilmiş İşlevleri Çağır
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya İşaretle   |  Boş Satırları Sil   |  Sütunları veya Hücreleri Verileri Kaybetmeden Birleştir   |   Formül Olmadan Yuvarla ...
Süper ARA: Çok Kriterli Düşeyara    Çoklu Değer Düşeyara  |   Çoklu sayfa araması   |   Bulanık Eşleme ....
Gelişmiş Açılır Liste: Hızlıca Açılır Liste Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekle  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştır ...
Öne Çıkan Özellikler: Izgara Odaklama   |  Tasarım Görünümü   |   Gelişmiş formül çubuğu    Çalışma Kitabı & Çalışma Sayfası Yöneticisi   |  Otomatik Metin Kütüphanesi (Auto Text)   |  Tarih Seçici   |  Veri Birleştir   |  Hücreleri Şifrele/Şifre Çöz    Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtrele...) ...
En İyi15 Araç Seti12 Metin Aracı (Metin Ekle, Belirli Karakterleri Sil, ...)   |   50+ Grafik Türü (Gantt Grafiği, ...)   |   40+ Pratik Formül (Doğum tarihine dayanarak yaş hesapla, ...)   |   19 Ekleme Aracı (QR Kodu Ekle, Yoldan Resim Ekle, ...)   |   12 Dönüşüm Aracı (Kelimeye Dönüştür, Para Birimi Dönüştürme, ...)   |   7 Birleştir & Böl Aracı (Gelişmiş Satırları Birleştir, Hücreleri Böl, ...)   |   ... ve daha fazlası

Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar.  En çok ihtiyacınız olan özelliği almak için buraya tıklayın...


Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır

  • Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
  • Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
  • Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!