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 Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!