İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir qovluqda və alt qovluqdakı bütün faylları bir işə necə yazmaq olar?

Heç bir qovluqdan bütün filenamesləri alt qovluqlarda yerləşən fayllar daxil olmaqla bir işə yazmağa çalışdınızmı? Əslində, filenamesləri bir qovluqdan və onun alt qovşağından Excel-də siyahıya salmamız üçün birbaşa yol yoxdur, lakin bu gün bu işi həll etmək üçün bir sıra sürətli tövsiyələr təqdim edəcəyəm.

VBA kodu ilə qovluq və alt qovluqdakı bütün filenarların siyahısını

Excel və Kutools ilə tez və asanlıqla qovluq və alt qovluqdakı bütün filenarların siyahısını yazın


Alt qovluqlar daxil olmaqla bir qovluqdakı bütün faylları bir iş səhifəsinə daxil edin:

Excel üçün Kutools's Filename siyahısı funksiyanı tez bir zamanda yeni bir işə alt qovluq daxil olmaqla bir qovluqdakı bütün fayl adlarını qeyd edə bilərsiniz. Excel-in Kutools-ı endirmək üçün buraya basın!

9 qovluq alt qovluğunda doc siyahısı faylları

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Normal olaraq Excel bu tapşırıqla məşğul olmaq üçün heç bir quruluşa malik deyil, ancaq bu problemi həll etmək üçün aşağıdakı VBA kodunu tətbiq edə bilərsiniz.

1. Fayl adlarını göstərən yeni bir işi aktivləşdirin.

2. Basıb saxlayın ALT + F11 Excel açarları və açar Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modul Pəncərəsi.

VBA kodu: qovluq və alt qovluqdakı bütün faylların siyahısını yazın

Sub MainList()
'Updateby20150706
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 kodu daxil etdikdən sonra düyməsini basın F5 bu kodu çalıştırmak üçün açar, və a Makro informasiya qutusu açılır, seçin MainList makro adı və sonra basın qaçış düyməsinə baxın, ekran görüntüsünə baxın:

1 qovluq alt qovluğunda doc siyahısı faylları

5. Və də İnsanlar pəncərədə, alt qovluqlar daxil olmaqla, bütün faylların siyahısını yazmaq istədiyiniz qovluğu seçin, ekran görünüşünə baxın:

2 qovluq alt qovluğunda doc siyahısı faylları

6. Qovluğu göstərdikdən sonra, sonra basın OK düyməsi və qovluqdakı bütün filenames və onun alt qovluqları A2 hücresindən cari iş səhifəsinə daxil edilmişdir, ekran görüntülərinə baxın:

3 qovluq alt qovluğunda doc siyahısı faylları
 1
4 qovluq alt qovluğunda doc siyahısı faylları

Yuxarıda göstərilən kodla yalnız filenameləri siyahıya ala bilərsiniz, bəzən fayl ölçüsü, fayl növü, yaradılmış vaxt, qovluq və s. Kimi digər xüsusiyyətləri göstərməlisiniz. Excel üçün Kutools faydalı bir funksiyanı ehtiva edir - Filename siyahısı, bu xüsusiyyət ilə bir qovluqda və onun alt qovluqlarında bütün və ya müəyyən fayl növlərini tez bir zamanda siyahıya ala bilərsiniz.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, aşağıdakı adımlarla edin:

1. Basın Müəssisə > İdxal ixrac > Filename siyahısı, bax ekran görüntüsü:

5 5 qovluq alt qovluğunda doc siyahısı faylları

6 6 qovluq alt qovluğunda doc siyahısı faylları

2. İçində Filename siyahısı informasiya qutusunda aşağıdakı əməliyyatları edin:

ATıklayınız 7 qovluq alt qovluğunda doc siyahısı fayllarıfaylların siyahısını yazmaq istədiyiniz qovluğu seçmək üçün;

B: Dəyişdirmək istədiyiniz faylın tipini göstərin Fayl tipi bölmə;

C: Sizdən göstərmək istədiyiniz bir fayl ölçüsü vahidini seçin Fayl ölçüsü vahidi bölmə.

Qeyd: Faylların alt qovluqdan siyahısını qeyd etmək üçün kontrol edin Faylları alt dizinlərdə əlavə edin, yoxsa yoxsa Hiperlinklər yaradın seçimi hər filename və qovluq üçün hiperlinklər yaradır.

İndi indir və pulsuz sınaq!

3. Sonra basın OK düyməsinə, seçilmiş qovluqda və alt qovluqlarda olan bütün fayllar yeni bir işdə aşağıdakı xüsusiyyətləri ilə göstərilir. Ekran görüntüsünə baxın:

8 qovluq alt qovluğunda doc siyahısı faylları

Bu Fayl Adı Siyahısı proqramı haqqında daha ətraflı məlumat üçün buraya basın.

Excel İndi Download və pulsuz sınaq Kutools!


Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    James · 1 months ago
    My VBA is saying that the variable folder is not defined. Anyone know why this is?
  • To post as a guest, your comment is unpublished.
    Chris K · 6 months ago
    What was the purpose of the parameter ByVal xIsSubfolders As Boolean?
  • To post as a guest, your comment is unpublished.
    Leandro Barbosa · 6 months ago
    Extremamente elegante este código!
  • To post as a guest, your comment is unpublished.
    jumpjack · 8 months ago
    Sub "GetFileOwner()" in code above is not used.
    • To post as a guest, your comment is unpublished.
      skyyang · 8 months ago
      Hello, jumpjack,
      The above code works well in my Excel, which Excel version do you use?
  • To post as a guest, your comment is unpublished.
    Brett · 1 years ago
    Thankyou for this code it has helped me with a request a work, I am now able to import these results into Access for further transformation.Appreciate it.