Weten hoe u Excel gebruiken om een map te lezen en maak een spreadsheet inhoud van de directory 's kunt u Excel gebruiken als een file management applicatie . Bijvoorbeeld , kon u een gebruiker te voorzien van een directory listing van waaruit ze kan een Access-database tabel kiezen om te importeren in de huidige Excel-werkmap . Project van dit artikel is gebaseerd op Excel 's programmeertaal , Visual Basic for Applications , of VBA voor kort. U kunt deze taal gebruiken om een Excel taak die tussenkomst van de gebruiker niet vereist automatiseren . Een effectieve manier van leren deze taal is op Excel's "Record macro-opdracht" te gebruiken op de tab "Ontwikkelaar " . Instructies
1 Klik op " Options " knop van de Office knop , en klik vervolgens op de " Show ontwikkelaar " checkbox om het tabblad "Ontwikkelaar " onthullen . Dit tabblad bevat knoppen voor Visual Basic-macro's . Je zult een VBA-macro gebruiken om een lijst van de bestanden in een map en winkel die lijst in een nieuw werkblad . Kopen van 2 Klik op het tabblad " Developer " en klik vervolgens op de " Basic Visual " knop om voert u de Visual Basic programmeeromgeving . Dubbelklik op het " Deze werkmap " in het navigatievenster op het scherm vertrokken . Deze actie opent een nieuwe programmeertaal venster waarin u uw directory listing programma te openen .
3 Plak volgende programma in de programmering venster . Dit programma maakt gebruik van de VBA -functie " Dir " om een map te lezen . De output van die functie is een enkel bestand uit die map . Option Explicit Public Sub listfiles
( ) Dim d
d = Dir ( " c: \\ windows \\ * " in het menu ) MsgBox d End Sub
4
Klik op een van de verklaringen van de programma 's , en klik vervolgens op "Run" 's " Run " commando om het programma uit te voeren . Excel zal een bericht met vermelding van de naam van een bestand in de map " C : . \\ Windows "
5 Plak volgende programma na de "End sub" verklaring van het eerste programma . Dit programma creëert een nieuwe werkmap en voegt een waarde in een van zijn cellen . Uw definitieve programma dat bestanden van een directory 's geeft zal de verklaringen gebruikt in dit programma om bestandsnamen te voegen in een nieuwe werkmap . Option Explicit Public Sub MakeNewWorkbook ( ) werkmappen
. Voeg ActiveCell
= " Hello there " End Sub
6
Voer het programma uit als u de vorige deed , en klik vervolgens op de " Excel " icoon in de Windows-taakbalk om terug te keren naar Excel . Uw programma zal een nieuwe werkmap wiens huidige spreadsheet toont de tekst " Hello there " in cel A1 voegen .
Gebruik stap 7 2 's instructies om terug te keren naar de VBA- programmeeromgeving , en vervolgens plak de volgende programma na de "End Sub " verklaring van het vorige programma . Dit programma maakt gebruik van de " Dir " functie om alle bestanden te verzamelen in de " C : \\ windows " map . Het programma slaat elke bestandsnaam in zijn eigen rij in een werkblad van een nieuwe werkmap .
Option Explicit Public Sub ListOneFile ( )
Dim d
d = Dir ( " c: \\ windows \\ * " ) op Twitter Workbooks.Add
Heb Tot d = " " ActiveCell
= d
' omlaag ActiveCell.Offset
( 1 ) . Selecteer
d = Dir Loop End Sub
8
Start het programma zoals u deed de vorige, en dan terug naar Excel met instructies stap 6 's . . Directory
: je zult een nieuwe spreadsheet waarvan de cellen geven een lijst van alle bestanden in de " \\ windows C " te zien |
