Kako kopirati popis svih naziva datoteka u mapi u Excel radni list putem VBA

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

U našem prethodnom članku 2 metode za kopiranje popisa svih naziva datoteka u mapi u vaš Excel radni list, uveli smo dvije metode za ispisivanje svih naziva datoteka u mapi na radnom listu. A sada smo pronašli drugu metodu. Za dovršetak ovog zadatka možete koristiti i VBA makronaredbu. Slijedite korake u nastavku i pogledajte kako ga koristiti.

Kopirajte popis svih naziva datoteka u mapi

1. Otvorite radnu knjigu u koju trebate unijeti nazive datoteka.
2. Zatim pritisnite tipke prečaca “Alt +F11” na tipkovnici da otvorite Visual Basic editor.
3. Nakon toga kliknite karticu "Umetni" na alatnoj traci.
4. Zatim odaberite opciju "Modul" na padajućem popisu. Stoga ste u editor umetnuli novi modul.
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 stupac 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 gumb "Run Sub" na alatnoj traci ili pritisnuti gumb "F5" na tipkovnici za pokretanje ove makronaredbe.
7. Zatim se vratite na radni list. Vidjet ćete da su se svi nazivi datoteka u mapi već pojavili u stupcu A.

U usporedbi s druge dvije metode u članku 2 metode za kopiranje popisa svih naziva datoteka u mapi u vaš Excel radni list, vidjet ćete da je korištenje VBA makronaredbe vrlo zgodno. No, s druge strane, ako niste upoznati s Excel VBA, susrest ćete se s pogreškama prilikom izmjene kodova. Stoga možete koristiti jednu od tri metode prema svojim stvarnim potrebama.

Obratite pozornost na opasan softver

Sigurno ćete instalirati mnogo softvera na svoje računalo. A te vam aplikacije mogu puno pomoći u radu. Međutim, neke od njih su opasne aplikacije. Nakon što ih instalirate na svoje računalo, prikupljat će vaše osobne podatke. Što je još gore, oni će također oštetiti 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 stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak problema s Word docx datotekom i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com