Kako kopirati listu svih imena datoteka u fascikli u Excel radni list putem VBA

Prikupljanje svih imena datoteka na radnom listu je veoma važno za vaš rad. U ovom članku ćemo predstaviti metodu za unos svih imena datoteka u radni list pomoću VBA makroa.

U našem prethodnom članku 2 Metode za kopiranje liste svih imena datoteka u fascikli u Excel radni list, uveli smo dvije metode za popis svih imena datoteka u fascikli u radni list. A sada smo pronašli još jednu metodu. Takođe možete koristiti VBA makro da završite ovaj zadatak. Slijedite dolje navedene korake i pogledajte kako ga koristiti.

Kopirajte listu svih imena datoteka u fascikli

1. Otvorite radnu svesku koju trebate da unesete imena datoteka.
2. Zatim pritisnite tipke prečice “Alt +F11” na tastaturi da otvorite Visual Basic editor.
3. Nakon toga, kliknite na karticu "Insert" na traci sa alatkama.
4. Zatim odaberite opciju “Modul” na padajućoj listi. Stoga ste ubacili novi modul u editor.
5. U ovom koraku kopirajte sljedeće kodove u novi 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

U ovom makrou trebate promijeniti ciljnu mapu prema vašim stvarnim potrebama. Nazive datoteka ćemo unijeti u kolonu A na radnom listu. Ako trebate unijeti nazive datoteka u drugi raspon, možete izmijeniti i kodove.

6. Nakon toga, pokrenite ovaj makro. Možete kliknuti na dugme “Run Sub” na traci sa alatkama ili pritisnuti dugme “F5” na tastaturi da pokrenete ovaj makro.
7. Zatim se vratite na radni list. Naći ćete da su se svi nazivi datoteka u folderu već pojavili u koloni A.

U poređenju s druge dvije metode u članku 2 Metode za kopiranje liste svih imena datoteka u fascikli u Excel radni list, videćete da je korišćenje VBA makroa veoma zgodno. Međutim, s druge strane, ako niste upoznati sa Excel VBA, naići ćete na greške prilikom modifikacije kodova. Stoga možete koristiti jednu od tri metode prema vašim stvarnim potrebama.

Obratite pažnju na opasan softver

Sigurno ćete instalirati dosta softvera na svoj računar. A te aplikacije vam mogu puno pomoći u radu. Međutim, neke od njih su opasne aplikacije. Nakon što ih instalirate na svoj računar, oni će prikupljati vaše lične podatke. Što je još gore, oni će oštetiti i vaše Excel datoteke. U ovom trenutku, odmah deinstalirajte opasan softver. Osim toga, također morate koristiti alat za oporavak popraviti oštećenu xlsx datoteku. Tako možete biti sigurni da su vaše Excel datoteke sigurne.

Uvod za autora:

Anna Ma je ​​stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravite problem Word docx datoteke i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com