İ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

Excel-də hüceyrələrə birdən çox fayl adını necə gətirmək olar?

Yüzlərlə faylları olan bir qovluq olduğunu düşünür və indi bu fayl adlarını bir işçinin hüceyrələrinə idxal etmək istəyirlər. Bir-birinə köçürmək və yapışdırmaq bir çox vaxt sərf edəcək, bu yazıda bir qovluqdakı birdən çox fayl adını bir iş səhifəsinə idxal etməyə kömək etmək üçün bəzi sürətli fəndlər haqqında danışacağam.

VBA koduyla iş faylının hüceyrələrinə birdən çox fayl adını alın

Excel üçün Kutools ilə iş faylları hüceyrələrinə birdən çox fayl adını alın


VBA koduyla iş faylının hüceyrələrinə birdən çox fayl adını alın


Aşağıdakı VBA kodu, faylın adlarını, fayl uzantılarını və qovluq adını iş səhifələrinə daxil etməyinizə kömək edə bilər, aşağıdakı adımlarla edin:

1. Fayl adlarını idxal etmək istədiyiniz yeni bir işə başlayın.

2. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

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

VBA kodu: Bir neçə fayl adını iş səhifəsinin hüceyrələrinə daxil edin

Sub GetFileList()
'updateby Extendoffice 20150909
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Sonra basın F5 bu kodu yerinə yetirmək üçün düyməni basın və qovuşdurduğunuz Gözdən keçirmə penceresinde, fayl adları formunu idxal etmək istədiyiniz qovluğu seçin, ekran görünüşünə baxın:

doc idxal faylları 1

5. Və sonra basın OK düyməsini basın və aşağıdakı nəticəni əldə edəcəksiniz:

doc idxal faylları 2

Qeyd: Belirli klasörünüzdeki alt klasörler varsa, alt klasörlerdeki fayl adları alınmaz.


Excel üçün Kutools ilə iş faylları hüceyrələrinə birdən çox fayl adını alın

Faylın adlarını həm qovluqda, həm də alt qovluqda idxal etməlisinizsə, xahiş edirik, narahat olmayın Excel üçün Kutools'S Filename siyahısı faydalı olaraq, asanlıqla alt qovluqları da daxil olmaqla, xüsusi qovluqdakı bütün fayl adlarını idxal edə 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 Kutoolsxahiş edirəm:

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

doc idxal faylları 3

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

(1.) Tıklayın doc idxal faylları 5 İthalat etmək istədiyiniz faylları olan qovluğu seçmək üçün düyməni basın;

(2.) Yoxlayın Faylları alt dizinlərdə əlavə edin alt qovluqların fayllarını idxal etmək;

(3.) Altında idxal etmək istədiyiniz faylların tipini seçin Fayl tipi bölmə;

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

(5.) Fayl adları və qovluqları köprü etmək istəyirsinizsə, xahiş edirəm Hiperlinklər yaradın seçin.

doc idxal faylları 4

3. Ayarları bitirdikdən sonra, klikləyin OK düyməsi və qovluqlarda və alt qovluqlarda olan fayllar aşağıdakı ekran görüntüsü kimi yeni bir işə daxil edilir:

doc idxal faylları 6

HaqqındaYalnız müəyyən bir növü olan fayl adlarını xüsusi qovluqdan idxal etmək istəyirsinizsə, onu kontrol edə bilərsiniz Dəqiqləşdirmək seçimi Filename siyahısı informasiya qutusuna daxil edin və fayl uzantısını yazın, sonra yalnız həmin qovluq və alt qovluqlarda göstərilən tip fayl adlarını idxal edəcək.

Bu Fayl Adı Siyahısı xüsusiyyəti haqqında daha ətraflı məlumat üçün tıklayın ...

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


Demo: Excel üçün Kutools ilə iş faylları hüceyrələrinə birdən çox fayl adını alın

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!


Related articles:

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

Bir qovluqdakı bütün faylları siyahıya salmaq və Exceldə onlar üçün hiperlinklər yaratmaq necədir?



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.
    J · 3 months ago
    For the VBA code, how would you pull in the date modified as well?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello,
      Add the date modified column for the imported filenames, please apply the following VBA code, please try it, hope it can help you!

      Sub GetFileList()
      Dim xFSO As Object
      Dim xFolder As Object
      Dim xFile As Object
      Dim xFiDialog As FileDialog
      Dim xPath As String
      Dim i As Integer
      Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
      If xFiDialog.Show = -1 Then
      xPath = xFiDialog.SelectedItems(1)
      End If
      Set xFiDialog = Nothing
      If xPath = "" Then Exit Sub
      Set xFSO = CreateObject("Scripting.FileSystemObject")
      Set xFolder = xFSO.GetFolder(xPath)
      ActiveSheet.Cells(1, 1) = "Folder name"
      ActiveSheet.Cells(1, 2) = "File name"
      ActiveSheet.Cells(1, 3) = "File extension"
      ActiveSheet.Cells(1, 4) = "Date last modified"
      i = 1
      For Each xFile In xFolder.Files
      i = i + 1
      ActiveSheet.Cells(i, 1) = xPath
      ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
      ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
      ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    kaka · 4 months ago
    Thanks. It was awesome
  • To post as a guest, your comment is unpublished.
    dimas · 7 months ago
    saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
  • To post as a guest, your comment is unpublished.
    agiltriyasmoko · 9 months ago
    Apakah bisa merename file dengan excel?
    terimakasih sangat membantu perkerjaan saya,
  • To post as a guest, your comment is unpublished.
    Carrin · 10 months ago
    Very helpful, thank you!