Cum să copiați lista tuturor numelor de fișiere dintr-un folder în foaia de lucru Excel prin VBA

Colectarea tuturor numelor de fișiere într-o foaie de lucru este foarte importantă pentru munca dvs. În acest articol, vom introduce o metodă de introducere a tuturor numelor de fișiere într-o foaie de lucru utilizând macrocomandă VBA.

În articolul nostru anterior 2 Metode pentru a copia lista tuturor numelor de fișiere dintr-un folder în foaia de lucru Excel, am introdus două metode pentru a lista toate numele fișierelor dintr-un folder într-o foaie de lucru. Și acum am găsit o altă metodă. De asemenea, puteți utiliza macrocomanda VBA pentru a finaliza această sarcină. Urmați pașii de mai jos și vedeți cum să îl utilizați.

Copiați lista tuturor numelor de fișiere dintr-un folder

1. Deschideți registrul de lucru de care aveți nevoie pentru a introduce numele fișierelor.
2. Apoi apăsați tastele de comandă rapidă „Alt + F11” de pe tastatură pentru a deschide editorul Visual Basic.
3. După aceea, faceți clic pe fila „Inserare” din bara de instrumente.
4. Apoi alegeți opțiunea „Modul” din lista derulantă. Prin urmare, ați introdus un nou modul în editor.
5. În acest pas, copiați următoarele coduri în noul modul:

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

În această macrocomandă, trebuie să schimbați folderul țintă în funcție de nevoile dvs. reale. Și vom introduce numele fișierelor în coloana A dintr-o foaie de lucru. Dacă trebuie să introduceți numele fișierelor într-un alt interval, puteți modifica și codurile.

6. După aceea, rulați această macrocomandă. Puteți face clic pe butonul „Run Sub” din bara de instrumente sau puteți apăsa butonul „F5” de pe tastatură pentru a rula această macrocomandă.
7. Apoi reveniți la foaia de lucru. Veți descoperi că toate numele fișierelor din folder au apărut deja în coloana A.

În comparație cu celelalte două metode din articol 2 Metode pentru a copia lista tuturor numelor de fișiere dintr-un folder în foaia de lucru Excel, veți vedea că utilizarea macrocomenzii VBA este foarte convenabilă. Cu toate acestea, pe de altă parte, dacă nu sunteți familiarizat cu Excel VBA, veți întâlni erori la modificarea codurilor. Prin urmare, puteți utiliza una dintre cele trei metode în funcție de nevoia dvs. reală.

Acordați atenție software-ului periculos

Cu siguranță veți instala o mulțime de software în computer. Și acele aplicații te pot ajuta foarte mult în munca ta. Cu toate acestea, unele dintre ele sunt aplicații periculoase. Odată ce le instalați în computer, ei vor colecta informațiile dvs. personale. Mai rău, fișierele dvs. Excel vor fi și ele deteriorate. În acest moment, dezinstalați software-ul periculos imediat. În plus, trebuie să utilizați și un instrument de recuperare reparați fișierul xlsx deteriorat. Astfel, vă puteți asigura că fișierele dvs. Excel sunt în siguranță.

Introducerea autorului:

Anna Ma este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați problema fișierului Word docx și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com