Ako programe Excel čítať adresár a vytvoriť tabuľku

Vedieť , ako používať Excel pre čítanie adresára a vytvoriť tabuľku so zoznamom obsah adresára Vám umožňuje použiť programu Excel ako aplikácie pre správu súborov . Napríklad , môžete poskytnúť užívateľovi s výpisom adresára , z ktorého si môžete vybrať tabuľku databázy programu Access importovať do aktuálneho zošita programu Excel . Projekt Tento článok je založený na aplikácii Excel programovací jazyk , Visual Basic for Applications alebo VBA pre krátkodobé . Môžete použiť tento jazyk pre automatizáciu akejkoľvek Excel úloha, ktorá nevyžaduje zásah užívateľa . Efektívny spôsob , ako naučiť tento jazyk , je použiť príkaz programu Excel " Záznam makra " na jeho záložke " Vývojár " . Pokyny dovolená 1

Kliknite na tlačidlo na tlačidlo Office v " Options " , a potom kliknite na zaškrtávacie políčko " Zobraziť developer " odhaliť kartu " Vývojár " . Táto karta má tlačidlá pre Visual Basic makrá . Budete používať makrá VBA , aby zoznam súborov v adresári a uloží tento zoznam v novej tabuľke .
2

Kliknite na kartu " Vývojár " , a potom kliknite na tlačidlo " Visual Basic " na zadajte Visual Basic programovacie prostredie . Double - kliknite na " Tento zošit " položka v navigačnej table na ľavej strane obrazovky . Táto akcia otvorí nové programovacie okno , v ktorom môžete zadať program , adresár výpis .
3

vložte nasledujúci program do programového okna . Tento program používa funkciu VBA " Dir " čítať adresár. Výstupom tejto funkcie je jeden súbor z tohto adresára .

Option Explicit

Public Sub listfiles ( )

Dim d

d = Dir ( "c : \\ windows \\ * " )

MsgBox d

End Sub
4

kliknite na niektorú z výkazov programu , a potom kliknite na tlačidlo " Run " menu je " Spustiť " príkaz na spustenie programu . Excel zobrazí okno so správou označujúce názov súboru v priečinku " C : \\ Windows . "
5

vložte nasledujúci program po " End Sub " vyhlásenie prvého programu . Tento program vytvorí nový zošit a vloží hodnotu v jednom zo svojich buniek . Váš konečný program , ktorý obsahuje zoznam súborov adresára budú používať vyhlásenie v tomto programe , vložiť názvy súborov do nového zošita .

Option Explicit

Public Sub MakeNewWorkbook ( )

zošity . Pridať

ActiveCell = " Ahoj "

End Sub
6

spustite program , ako ste predchádzajúce , a potom kliknite na ikonu " Excel " v paneli úloh systému Windows sa vráťte do programu Excel . Váš program pridá nový zošit , ktorého aktuálna tabuľka zobrazuje text " Ahoj " v bunke A1 .
7

Použitie krok 2 je inštrukcie pre návrat do programovacieho prostredia VBA a vložte nasledujúci program po " End Sub " výpis z predchádzajúceho programu . Tento program používa funkciu " Dir " zhromaždiť všetky súbory v priečinku " C : \\ Windows " zložka . Obchody programu každého súboru na samostatnom riadku v tabuľkovom procesore nový zošit .

Option Explicit

Public Sub ListOneFile ( )

Dim d

d = Dir ( " c : \\ windows \\ * " )

Workbooks.Add

Do Until d = " "

ActiveCell = d

" pohyb dole

ActiveCell.Offset ( 1 ) . Vyberte

d = Dir

Loop

End Sub
8

spustite program , ako ste tie predchádzajúce , a potom sa vrátiť do programu Excel pomocou kroku 6 v návode . Uvidíte novú tabuľku , ktorej bunky zobrazí zoznam všetkých súborov v adresári " C : \\ Windows " . Adresáre

• Predchádzajúca strana: Ako Filter Každá piata položka v programe Excel 
• Ďalšia strana: Ako vytvoriť dva Rolling kocky v programe Excel