Klasör ve alt klasörlerdeki tüm dosyalar bir çalışma sayfasına nasıl listelenir?
Hiç bir klasördeki tüm dosya adlarını, alt klasörlerinde bulunan dosyalar da dahil olmak üzere bir çalışma sayfasında listelemeyi denediniz mi? Aslında, bir klasördeki ve onun alt klasöründeki dosya adlarını Excel'de listelemenin doğrudan bir yolu yoktur, ancak bugün, bu işi çözmek için bazı hızlı hileler sunacağım.
Klasör ve alt klasördeki tüm dosya adlarını VBA kodu ile listeleyin
Kutools for Excel ile klasör ve alt klasördeki tüm dosya adlarını hızlı ve kolay bir şekilde listeleyin
Klasör ve alt klasördeki tüm dosya adlarını VBA kodu ile listeleyin
Normalde, Excel'in bu görevle başa çıkmak için yerleşik özelliği yoktur, ancak bu sorunu tamamlamak için aşağıdaki VBA kodunu uygulayabilirsiniz.
1. Dosya adlarını listeleyen yeni bir çalışma sayfasını etkinleştirin.
2. Basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Klasör ve alt klasördeki tüm dosya adlarını listeleyin
Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
4. Kodu Modüle yapıştırdıktan sonra, F5 bu kodu çalıştırmak için anahtar ve bir Makrolar iletişim kutusu açılır, Ana Liste makro adını ve ardından koşmak düğmesi, ekran görüntüsüne bakın:
5. Ve bu da Araştır penceresi, lütfen alt klasörler dahil tüm dosya adlarını listelemek istediğiniz klasörü seçin, ekran görüntüsüne bakın:
6. Klasörü belirledikten sonra, OK düğmesi ve klasör ve alt klasörlerindeki tüm dosya adları A2 hücresinden geçerli çalışma sayfasında listelenmiştir, ekran görüntülerine bakın:
 |
 |
 |
Kutools for Excel ile klasör ve alt klasördeki tüm dosya adlarını hızlı ve kolay bir şekilde listeleyin
Yukarıdaki kodla, sadece dosya adlarını listeleyebilirsiniz, bazen dosya boyutu, dosya türü, oluşturulma zamanı, klasör içeren vb. Gibi diğer öznitelikleri listelemeniz gerekir. Kutools for Excel kullanışlı bir işlev içerir - Dosya Adı Listesi, bu özellikle, bir klasördeki ve alt klasörlerindeki tüm veya belirli dosya adlarını hızla listeleyebilirsiniz.
| Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen aşağıdaki adımları uygulayın:
1. tıklayın kuruluş > İthalat ihracat > Dosya Adı Listesi, ekran görüntüsüne bakın:
2. In Dosya Adı Listesi iletişim kutusunda aşağıdaki işlemleri yapın:
A: Tıklayın 
dosya adlarını listelemek istediğiniz klasörü seçmek için düğmesine basın;
BListeden listelemek istediğiniz dosya türünü belirtin. Dosya türü Bölüm;
C: Listeden görüntülemek istediğiniz bir dosya boyutu birimi seçin. Dosya boyutu birimi Bölüm.
not: Alt klasördeki dosya adlarını listelemek için lütfen kontrol edin Dosyaları alt dizinlere dahil etayrıca kontrol edebilirsiniz Gizli dosya ve klasörleri dahil et gerek duyduğunuz kadar. Kontrol edersen Köprüler oluştur seçeneği, her dosya adı ve klasör için köprüler oluşturacaktır.
3. Sonra tıklayın OK düğmesi, seçilen klasör ve alt klasörlerinde bulunan tüm dosyalar yeni bir çalışma sayfasında aşağıdaki özniteliklerle görüntülendi. Ekran görüntüsüne bakın:
Bu Dosya Adı Listesi yardımcı programı hakkında daha fazla ayrıntı öğrenmek için tıklayın.
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
Demo: Kutools for Excel ile klasör ve alt klasördeki tüm dosya adlarını listeleyin
En İyi Ofis Üretkenliği Araçları
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
- Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
- Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
