Saturs

• Instrukcijas
• Makro izveide
• Makro izmantošana
• Paziņojums

Microsoft Excel nav tikai tabulas dati, aprēķini un informācijas pārvaldība. Jebkurš laipns lietotājs var pārvērst Excel par spēcīgu rīku mapju pārvaldīšanai, failu organizēšanai un uzdevumu sekošanai. Varat izveidot makro, kas izmanto VBA FileDialog objektu, lai ātri skenētu direktoriju un uzskaitītu tā saturu darblapā. Pēc izpildes šis makro liks lietotājiem izvēlēties mapi, un pēc tam sarakstā tiks uzskaitīti satura nosaukumi vienā slejā.

Instrukcijas

Izveidojiet, rediģējiet, noņemiet, pārraugiet un pārvietojiet mapes no sava datora, izmantojot programmu Excel VBA (Hemera Technologies / Photos.com / Getty Images)

Makro izveide

1. Startējiet programmu Microsoft Excel. Nospiediet "CTRL + O", atlasiet darbgrāmatu un pēc tam noklikšķiniet uz "Atvērt". Lai izveidotu jaunu darbgrāmatu, nospiediet "CTRL + N".

2. Nospiediet "ALT + F8", lai atvērtu makro dialoglodziņu. Ierakstiet "GetFolderContents" makro nosaukuma lodziņā un pēc tam noklikšķiniet uz "Izveidot".

3. VBA redaktorā ierakstiet šādu kodu:

   Sub GetFolderContents () Dim xDir, xFilename, f, fso kā Object Set fso = CreateObject ("Scripting.FileSystemObject") Ar Application.FileDialog (msoFileDialogFolderPicker) .InitialFileName = ThisWorkbook.Path & " t saraksta failus no ".AllowMultiSelect = False. Rādīt, ja .SelectedItems.Count <> 0 Tad xDir = .SelectedItems (1) &" Beigas, ja beigas ar If (MsgBox (Prompt: = "Vai vēlaties iekļaut apakšmapes nosaukumu ? ", _ Pogas: = vbYesNo, Nosaukums: =" Iekļaut apakšmapes ") = vbYes) Tad GoTo ListFolders GoTo ListFiles Papildu GoTo ListFiles Beigas Ja saraksta mapes: Katram f In fso.GetFolder (xDir) .SubFolders ActiveCell.Value =". .FileName ActiveCell.Offset (1, 0) .Izvēlieties Next f ListFiles: Par katru f In fso.GetFolder (xDir) .Files ActiveCell.Value = f.Name ActiveCell.Offset (1, 0). Nākamais f Iestatīt fso = Nekas Beigas Sub

   
   

4. Nospiediet "ALT + Q", lai aizvērtu VBA redaktoru un atgrieztos darbgrāmatā.

Makro izmantošana

1. Izvēlieties lapas šūnu. Lai izveidotu tukšu kolonnu, nospiediet taustiņu "ALT + I" un "C". Atlasiet jaunās kolonnas pirmo šūnu. Ja tā vietā vēlaties parādīt sarakstu jaunā darblapā, nospiediet "SHIFT + F11".

2. Nospiediet "ALT + F8", lai atvērtu makro dialoglodziņu. Izvēlieties "GetFolderContents" un pēc tam noklikšķiniet uz "Run".

3. Atlasiet mapi vai direktoriju, no kura vēlaties uzskaitīt saturu. Noklikšķiniet uz "OK".

4. Noklikšķiniet uz "Jā", ja vēlaties, lai makro arī uzskaitītu apakšmapes, vai noklikšķiniet uz "Nē", lai uzskaitītu tikai failus. Pagaidiet, līdz Excel pabeidz aizpildīt jauno sleju ar izvēlētās mapes saturu.

Paziņojums

• Pēc noklusējuma makro tiek atspējoti programmā Microsoft Excel. Lai tos aktivizētu, noklikšķiniet uz Microsoft Office pogas un pēc tam dodieties uz "Excel opcijas". Pārliecinieties, vai ir atzīmēta "Rādīt izstrādātāja cilni". Dodieties uz "Trust Center" un pēc tam noklikšķiniet uz "Trust Center Settings". Dodieties uz "Makro iestatījumi" un pēc tam izvēlieties "Iespējot visus makro". Abos logos noklikšķiniet uz "OK", saglabājiet visas atvērtās darba mapes un restartējiet programmu Excel.