Sadržaj

• smjerovi
• Stvaranje makronaredbe
• Korištenje makronaredbe
• upozorenje

Microsoft Excel se ne bavi samo tabličnim podacima, izračunima i upravljanjem informacijama. Svaki pohlepan korisnik može pretvoriti Excel u moćan alat za upravljanje mapama, organiziranje datoteka i praćenje zadataka. Možete stvoriti makronaredbu koja koristi VBA FileDialog objekt za brzo skeniranje direktorija i popis sadržaja na radnom listu. Nakon izvršenja, ova makronaredba potaknut će korisnike da odaberu mapu, a kasnije će navesti imena sadržaja u jednom stupcu.

smjerovi

Stvaranje, uređivanje, uklanjanje, praćenje i premještanje mape s računala s programom Excel VBA (Hemera Technologies / Photos.com / Getty Images)

Stvaranje makronaredbe

1. Pokrenite Microsoft Excel. Pritisnite "CTRL + O", odaberite radnu knjigu, a zatim kliknite "Otvori". Umjesto toga stvorite novu radnu knjigu, pritisnite "CTRL + N".

2. Pritisnite "ALT + F8" za otvaranje dijaloškog okvira za makro. Upišite "GetFolderContents" unutar okvira naziva makronaredbe, a zatim kliknite "Izradi".

3. Upišite sljedeći kôd u VBA uređivač:

   Sub GetFolderContents () Dim xDir, xFilename, f, fso Kao skup objekata fso = CreateObject ("Scripting.FileSystemObject") S Application.FileDialog (msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & ".Title =" Odaberite mapu list file from ".AllowMultiSelect = False .Prikaži ako .SelectedItems.Count <> 0 Zatim xDir = .SelectedItems (1) &" "Završi ako se završi s (MsgBox (Prompt: =" Želite li uključiti ime podmape ? ", _ Gumbi: = vbYesNo, Title: =" Uključi podmape ") = vbYes) Zatim GoTo ListFolders GoTo ListFiles Još GoTo ListFiles Kraj Ako ListFolders: Za svaki f U fso.GetFolder (xDir). SubFolders ActiveCell.Value =". FileName ActiveCell.Offset (1, 0). Odaberite Next f ListFiles: Za svaki f u fso.GetFolder (xDir) .files ActiveCell.Value = f.Name ActiveCell.Offset (1, 0). Sljedeće f Postavi fso = Ništa ne završava Pod

   
   

4. Pritisnite "ALT + Q" da biste zatvorili VBA editor i vratili se u radnu knjigu.

Korištenje makronaredbe

1. Odaberite ćeliju lista. Pritisnite tipku "ALT + I" i "C" da biste stvorili prazan stupac. Odaberite prvu ćeliju novog stupca. Ako ste željeli prikazati popis u novom radnom listu, pritisnite "SHIFT + F11".

2. Pritisnite "ALT + F8" za otvaranje dijaloškog okvira za makro. Odaberite "GetFolderContents", a zatim kliknite "Pokreni".

3. Odaberite mapu ili direktorij iz kojeg želite popis sadržaja. Kliknite "U redu".

4. Kliknite "Da" ako želite da makronaredba također popisuje imena podmapa, ili kliknite "Ne" da biste naveli samo datoteke. Pričekajte da Excel završi s ispunjavanjem novog stupca sa sadržajem odabrane mape.

upozorenje

• Prema zadanim postavkama makronaredbe su onemogućene u programu Microsoft Excel. Da biste ih aktivirali, kliknite gumb Microsoft Office, a zatim idite na "Opcije programa Excel". Provjerite je li označena "Prikaži karticu razvojnog programera". Idite na "Centar za pouzdanost", a zatim kliknite "Postavke središta povjerenja". Idite na "Makro postavke", a zatim odaberite "Omogući sve makronaredbe". Kliknite na "OK" na oba prozora, spremite sve otvorene mape poslova i ponovno pokrenite Excel.