Bir klasördeki resim adlarını/dosya adlarını Excel hücrelerine nasıl hızlıca listelerim?
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 | ![]() |
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.
5. Tıklayın Tamam ve Gözat iletişim kutusunda resim adlarını listelemek istediğiniz klasörü seçmeye devam edin.
6. Tıklayın Tamam, şimdi seçilen klasördeki tüm resim adları Excel'de listelenmiştir.
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.
![]() | 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
|
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.
![]() |
|
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.
2. Dosya Adı Listesi diyalog kutusunda, önce 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.
3. Ardından, Dosya türü bölümünde listelemek istediğiniz dosya formatını seçin.



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.
![]() | ![]() |
5. Tıklayın Tamam, dosya adlarını ve bazı dosya bilgilerini listelemek için yeni bir çalışma sayfası oluşturulacaktır.
İ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.
Kutools for Excel:+ kullanışlı el araçları, Excel'deki karmaşık görevleri birkaç tıklamaya indirger.
Örnek Dosyayı İndir
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 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!