vide hvordan man bruger Excel til at læse en mappe og oprette et regneark med angivelse af mappes indhold kan du bruge Excel som en fil management program . For eksempel kan du give en bruger med en mappe notering , hvorfra hun kan vælge en Access-database tabellen til at importere i den nuværende Excel-projektmappen. Denne artikel projekt bygger på Excels programmeringssprog , Visual Basic for Applications eller VBA for korte. Du kan bruge dette sprog til at automatisere enhver Excel opgave , der ikke kræver indgriben fra brugeren . En effektiv måde at lære dette sprog er at bruge Excel "Record makro" kommando på sin "Udvikler "-fanen . Instruktioner
1
Klik på Office- knappen er knappen "Indstillinger" , og klik derefter på "Show bygherren " afkrydsningsfeltet for at afsløre "Udvikler "-fanen . Denne fane indeholder knapper til Visual Basic-makroer . Du skal bruge en VBA- makro til at vise en filerne i en mappe og gemme denne liste i et nyt regneark .
2
Klik på " Udvikler " fanen, og klik derefter på "Visual Basic " for at Indtast Visual Basic programmering miljø . Dobbeltklik på " Denne projektmappe " post i navigationsruden til venstre skærm. Denne handling åbner et nyt programmerings vindue, hvor at indtaste din katalogliste program.
3
Indsæt følgende program i programmeringen vinduet. Dette program bruger VBA -funktion " Dir " for at læse en mappe. Outputtet af denne funktion er en enkelt fil fra denne mappe .
Option Explicit
Public Sub ListFiles ()
Dim d
d = Dir ( "c: \\ windows \\ * " )
MsgBox d
End Sub
4
Klik på en af programmets udsagn , og klik derefter på "Kør" menuen "Kør" kommandoen for at køre programmet . Excel vil vise en besked boks , der angiver navnet på en fil i mappen "C: . \\ Windows "
5
Indsæt følgende program efter "End sub " erklæring af det første program . Dette program skaber en ny projektmappe og indsætter en værdi i en af sine celler. Din endelige program , der viser en mappes filer vil bruge udsagn i dette program til at indsætte filnavne i en ny projektmappe.
Option Explicit
Public Sub MakeNewWorkbook ()
projektmapper . Tilføj
activeCell = " Hello there "
End Sub
6
Kør programmet som du gjorde den foregående, og klik derefter på " Excel " ikonet i proceslinjen i Windows for at vende tilbage til Excel. Dit program vil tilføje en ny projektmappe , hvis aktuelle regneark viser teksten "Hello there" i celle A1 .
7
Brug trin 2 anvisninger for at vende tilbage til VBA programmering miljø , og derefter indsætte følgende program efter "End Sub " erklæring i det forrige program . Dette program bruger " Dir "-funktionen til at samle alle filer i " C: \\ Windows" mappen. Programmet gemmer alle filnavne i sin egen række i en regneark med en ny projektmappe .
Option Explicit
Public Sub ListOneFile ()
Dim d
d = Dir ( "c: \\ windows \\ * " )
Workbooks.Add
Må Indtil d = " "
ActiveCell = d
' flyt ned
ActiveCell.Offset (1) . Vælg
d = Dir
Loop
End Sub
8
Kør programmet som du gjorde de tidligere, og derefter vende tilbage til Excel ved hjælp trin 6 anvisninger. Du vil se et nyt regneark , hvis celler vise en liste over alle filer i " C: \\ Windows" . Directory