Qovluqdakı bütün fayl adlarının siyahısını VBA vasitəsilə Excel İş vərəqinə necə köçürmək olar

İş vərəqində bütün fayl adlarını toplamaq işiniz üçün çox vacibdir. Bu yazıda VBA makrosundan istifadə edərək bütün fayl adlarını iş vərəqinə daxil etmək üsulunu təqdim edəcəyik.

Əvvəlki yazımızda Qovluqdakı bütün fayl adlarının siyahısını Excel iş vərəqinizə kopyalamaq üçün 2 üsul, biz bir qovluqdakı bütün fayl adlarını iş vərəqində siyahıya almaq üçün iki üsul təqdim etdik. İndi başqa bir üsul tapdıq. Bu tapşırığı tamamlamaq üçün VBA makrosundan da istifadə edə bilərsiniz. Aşağıdakı addımları izləyin və ondan necə istifadə edəcəyinizi görün.

Qovluqdakı bütün fayl adlarının siyahısını kopyalayın

1. Fayl adlarını daxil etmək üçün lazım olan iş kitabını açın.
2. Və sonra Visual Basic redaktorunu açmaq üçün klaviaturada "Alt + F11" qısa yol düymələrini basın.
3. Bundan sonra, alətlər panelində "Daxil et" sekmesini vurun.
4. Sonra açılan siyahıda "Modul" seçimini seçin. Beləliklə, redaktora yeni modul daxil etdiniz.
5. Bu addımda aşağıdakı kodları yeni modula kopyalayın:

Sub ListAllFileNames()
  Dim strTargetFolder As String, strFileName As String, nCountItem As Integer

  '  Initialization
  nCountItem = 1
  strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\"
  strFileName = Dir(strTargetFolder, vbDirectory)

  '  Get the file name
  Do While strFileName <> ""
    If strFileName <> "." And strFileName <> ".." Then
      Cells(nCountItem, 1) = strFileName
      nCountItem = nCountItem + 1
    End If
    strFileName = Dir
  Loop
End Sub

Bu makroda hədəf qovluğu faktiki ehtiyacınıza uyğun olaraq dəyişdirməlisiniz. Fayl adlarını iş vərəqindəki A sütununa daxil edəcəyik. Fayl adlarını başqa diapazona daxil etməlisinizsə, kodları da dəyişdirə bilərsiniz.

6. Bundan sonra bu makronu işə salın. Siz bu makrosunu işə salmaq üçün alətlər panelindəki “Ab-ı işə salın” düyməsini və ya klaviaturada “F5” düyməsini sıxa bilərsiniz.
7. Sonra iş vərəqinə qayıdın. Qovluqdakı bütün fayl adlarının artıq A sütununda göründüyünü görəcəksiniz.

Məqalədəki digər iki üsulla müqayisədə Qovluqdakı bütün fayl adlarının siyahısını Excel iş vərəqinizə kopyalamaq üçün 2 üsul, VBA makrosundan istifadənin çox rahat olduğunu görəcəksiniz. Bununla belə, digər tərəfdən, Excel VBA ilə tanış deyilsinizsə, kodları dəyişdirərkən səhvlərlə qarşılaşacaqsınız. Buna görə də, faktiki ehtiyacınıza uyğun olaraq üç üsuldan birini istifadə edə bilərsiniz.

Təhlükəli proqram təminatına diqqət yetirin

Şübhəsiz ki, kompüterinizdə çoxlu proqram təminatı quraşdıracaqsınız. Və bu proqramlar işinizdə sizə çox kömək edə bilər. Bununla belə, onlardan bəziləri təhlükəli proqramlardır. Siz onları kompüterinizə quraşdırdıqdan sonra onlar sizin şəxsi məlumatlarınızı toplayacaqlar. Ən pisi odur ki, Excel fayllarınız da onlar tərəfindən zədələnəcək. Bu anda təhlükəli proqramı dərhal silin. Bundan əlavə, bərpa alətindən də istifadə etməlisiniz zədələnmiş xlsx faylını təmir edin. Beləliklə, Excel fayllarınızın təhlükəsiz olduğundan əmin ola bilərsiniz.

Müəllif Giriş:

Anna Ma məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Word docx fayl problemini təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com