Veta hur man använder Excel för att läsa en katalog och skapa ett kalkylblad listar katalogens innehåll kan du använda Excel som en fil hanteringsprogram . Till exempel kan du ge en användare med en katalog notering från vilken hon kan välja ett bord Access-databas att importera till den aktuella Excel- arbetsboken . Den här artikeln projekt bygger på Excel programmeringsspråk , Visual Basic for Applications , eller VBA för kort . Du kan använda detta språk för att automatisera alla Excel uppgift som inte kräver åtgärder från användaren . Ett effektivt sätt att lära detta språk är att använda Excel " Spela in makro " -kommandot på sin " Utvecklare " fliken . Instruktioner
1
Klicka på Office- knappen s " Options " -knappen , och klicka sedan på " Visa utvecklare " kryssrutan för att avslöja " Utvecklare " fliken . Denna flik innehåller knappar för Visual Basic-makron . Du ska använda ett VBA-makro för att lista filerna i en katalog och butik som lista i ett nytt kalkylblad .
2
Klicka på " Utvecklare " fliken , och klicka sedan på " Visual Basic " -knappen för att Ange Visual Basic programmeringsmiljö . Dubbelklicka på " Den här arbetsboken " post i navigeringsfönstret på vänster skärm . Denna åtgärd öppnar en ny programperiod fönster där du kan ange din programkatalogen notering .
3
Klistra in följande program i programmeringsfönstret . Detta program använder VBA -funktionen " Dir " att läsa en katalog . Utgången av denna funktion är en enskild fil från den katalogen .
Option Explicit
Public Sub ListFiles ( ) katalog
Dim d
d = Dir ( " c : \\ windows \\ * " ) katalog
MsgBox d
End Sub
4
Klicka på någon av programmets påståenden , och klicka sedan på " Kör " menyns " kör " -kommandot för att köra programmet . Excel kommer att visa en meddelanderuta som anger namnet på en fil i mappen " C : . \\ Windows "
5
Klistra in följande program efter " End Sub " uttalande av det första programmet . Detta program skapar en ny arbetsbok och infogar ett värde i en av sina celler . Din sista program som listar ett katalogens filer kommer att använda de uttalanden i detta program för att infoga filnamn i en ny arbetsbok .
Option Explicit
Public Sub MakeNewWorkbook ( ) katalog
arbetsböcker . Lägg
ActiveCell = " Hallå där "
End Sub
6
Kör programmet som du gjorde tidigare , och klicka sedan på " Excel " -ikonen i aktivitetsfältet i Windows för att återgå till Excel . Ditt program kommer att lägga en ny arbetsbok vars aktuella kalkylbladet visar texten " Hello there " i cell A1 .
7
Använd steg 2 instruktioner att återvända till VBA-programmering miljö , och sedan klistra in följande program efter "End Sub " uttalande i det föregående programmet . Detta program använder " Dir " -funktion för att samla alla filer i " C : \\ windows " -mappen . Programmet lagrar varje filnamn på en egen rad i ett kalkylblad i en ny arbetsbok .
Option Explicit
Public Sub ListOneFile ( ) katalog
Dim d
d = Dir ( " c : \\ windows \\ * " ) katalog
Workbooks.Add
göra tills d = " "
ActiveCell = d
' flytta ner
ActiveCell.Offset ( 1 ) . Välj
d = Dir
Loop
End Sub
8
kör programmet som du gjorde tidigare , och sedan återvända till Excel med steg 6 instruktioner . Du kommer att se ett nytt kalkylblad vars celler visar en lista över alla filer i " C : \\ windows " . Katalog Addera
