Sisu

• Juhised
• Makro loomine
• Makro kasutamine
• Teade

Microsoft Excel ei ole pelgalt tabeliandmete, arvutuste ja teabe haldamise küsimus. Iga avid kasutaja saab Exceli muuta tõhusaks vahendiks kaustade haldamisel, failide korraldamisel ja ülesannete jälgimisel. Saate luua makro, mis kasutab VBA FileDialog objekti, et kataloogi kiiresti skannida ja loetleda selle sisu töölehele. Pärast täitmist sunnib see makro kasutajaid valima kausta ja hiljem loetleb sisu nimed ühes veerus.

Juhised

Looge, redigeerige, eemaldage, jälgige ja teisaldage oma arvutist kaustu Excel VBA abil (Hemera Technologies / Photos.com / Getty Images)

Makro loomine

1. Käivitage Microsoft Excel. Vajutage "CTRL + O", valige töövihik ja seejärel klõpsake "Ava". Uue töövihiku loomiseks vajutage "CTRL + N".

2. Makro dialoogiboksi avamiseks vajutage "ALT + F8". Tippige väljale "GetFolderContents" makro nime lahtrisse ja seejärel klõpsake "Create".

3. Sisestage VBA redaktoris järgmine kood:

   Sub GetFolderContents () Dim xDir, xFilename, f, fso kui Object Set fso = CreateObject ("Scripting.FileSystemObject") rakendusega .FileDialog (msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & " t nimekirja faile ".AllowMultiSelect = False. Näita, kui .SelectedItems.Count <> 0 Siis xDir = .SelectedItems (1) &" Lõpeta, kui lõpeb Ifiga (MsgBox (Prompt: = "Kas soovite lisada alamkaustade nime ? ", _ Nupud: = vbYesNo, pealkiri: =" Sisesta alamkaustad ") = vbYes) Siis GoTo ListFolders GoTo ListFiles Muude GoTo ListFiles Lõpeta, kui loendikaustad: Iga f jaoks fso.GetFolder (xDir) .SubFolders ActiveCell.Value =". .Faili nimi ActiveCell.Offset (1, 0) .Vali järgmine f ListFiles: iga f jaoks fso.GetFolder (xDir) .Files ActiveCell.Value = f.Name ActiveCell.Offset (1, 0). Järgmine f Set fso = Nothing End Sub

   
   

4. VBA redaktori sulgemiseks ja töövihikusse naasmiseks vajutage "ALT + Q".

Makro kasutamine

1. Valige lehtrakk. Tühja veeru loomiseks vajutage klahvi "ALT + I" ja "C". Valige uue veeru esimene lahtr. Kui soovite selle loendi uues töölehel kuvada, vajuta "SHIFT + F11".

2. Makro dialoogiboksi avamiseks vajutage "ALT + F8". Valige "GetFolderContents" ja seejärel klõpsake "Run".

3. Valige kaust või kataloog, kust soovite sisu loetleda. Klõpsake "OK".

4. Klõpsake "Jah", kui soovite, et makro loetaks ka alamkaustade nimed, või klõpsake ainult failide loendisse "Ei". Oodake, kuni Excel lõpeb uue veeru täitmisega valitud kausta sisuga.

Teade

• Vaikimisi on makrosid Microsoft Excelis keelatud. Nende aktiveerimiseks klõpsa Microsoft Office'i nupule ja minge seejärel "Excel Options". Veenduge, et "Show Developer Tab" on märgitud. Minge "Usalduskeskusesse" ja seejärel klõpsake "Usalduskeskuse seaded". Minge "Macro Settings" ja seejärel valige "Enable all macros". Klõpsake mõlemas aknas "OK", salvestage kõik avatud töökaustad ja taaskäivitage Excel.