Ako používať Excel filedialog získať zoznam súborov v adresári

Microsoft Excel nie je len o tabuľkových dát , výpočty a správu informácií . Každý zanietený užívateľ môže obrátiť Excel do mocný nástroj pre správu zložiek , organizovať súbory a sledovanie úloh . Môžete vytvoriť makrá , ktorá používa objekt filedialog VBA rýchlo skenovať adresár a zoznam jeho obsahu v tabuľke . Po vykonaní sa toto makro vyzve užívateľa , aby vybrať zložku , a to bude následne vypísať mená jeho obsah v jednom stĺpci . Pokyny
Vytvorenie makro foto 1

Spustite program Microsoft Excel . Stlačením tlačidla " CTRL + O , " vyberte zošit a potom kliknite na " Otvoriť " . Ak chcete namiesto toho vytvoriť nový zošit , stlačte " CTRL + N. "
2

Stlačením tlačidla " ALT + F8 " sa otvorí dialógové okno Makrá . Typ " GetFolderContents " do poľa Názov makra a potom kliknite na " Vytvoriť " .
3

Zadajte nasledujúci kód do editora VBA .

Sub GetFolderContents ( )

Dim xDir , xFilename , f , FSO As Object

Set FSO = CreateObject ( " Scripting.FileSystemObject " )

S Application.FileDialog ( msoFileDialogFolderPicker )

. InitialFileName = ThisWorkbook.Path & " \\ "

. Title = " Vyberte priečinok , do zoznamu súborov z "

. AllowMultiSelect = False

. Zobraziť

. SelectedItems.Count < > 0 Then

xDir = . SelectedItems ( 1 ) & " \\ "

End If

End With

( MsgBox ( Prompt : = " ? Prajete si zahrnúť názvy podpriečinkov " , _

Tlačidlá : = vbYesNo , Title : = " Vrátane podpriečinkov " ) = vbYes ) Potom

GoTo ListFolders

GoTo listfiles

Else

GoTo listfiles

End If

ListFolders :

pre každý f V fso.GetFolder ( xDir ) . podpriečinky

ActiveCell.Value = " .. \\ " a f.Name

ActiveCell.Offset ( 1 , 0 ) . Vyberte

Ďalšie f

listfiles :

For Each f In fso.GetFolder ( xDir ) súbory

ActiveCell.Value = f.Name

ActiveCell .. offset ( 1 , 0 ) . Vyberte klipart

Next f

Set FSO = Nothing

End Sub
4

Stlačte " ALT + Q " zatvorte editor VBA a vrátiť sa do svojho zošita .
Použitie makro
5

Označte bunku vo vašom liste . Stlačením tlačidla " ALT + I" a potom " C " na vytvorenie prázdneho stĺpca . Vyberte prvú bunku v novom stĺpci . Ak by ste chceli zobraziť zoznam do nového hárka miesto , stlačte tlačidlo " SHIFT + F11 . "
6

Stlačením tlačidla " ALT + F8 " sa otvorí dialógové okno Makrá . Vyberte " GetFolderContents " a potom kliknite na " Run " .
7

Vyberte priečinok alebo adresár , z ktorého chcete zobraziť obsah . Kliknite na " OK " .
8

Kliknite na " Áno " , ak chcete , aby makrá tiež zoznam názvov čiastkových zložiek , alebo kliknite na " Nie " iba zoznam súborov . Počkajte Excel dokončení obývať nový stĺpec s obsahom Vášho zvolenej zložky .

• Predchádzajúca strana: Ako odobrať políčka v programe Excel 2007 
• Ďalšia strana: Ako Skontrolujte Excel