Å vite hvordan du bruker Excel til å lese en katalog og lage et regneark med oversikt over katalogens innholdet kan du bruke Excel som en fil administrasjonsprogrammet. For eksempel kan du gi en bruker med en katalogoppføring som hun kan velge en Access database tabell for å importere til gjeldende Excel-arbeidsbok . Denne artikkelen er prosjektet avhengig av Excel programmeringsspråk, Visual Basic for Applications , eller VBA for kort . Du kan bruke dette språket til å automatisere noen Excel oppgave som ikke krever brukermedvirkning . En effektiv måte å lære dette språket er å bruke Excel "Record makro "-kommandoen på sin " Developer "-kategorien . Instruksjoner
en

Klikk Office- knappen er " Alternativer"-knappen , og klikk deretter på " Show utvikleren » for å avsløre "Utvikler " fanen . Denne kategorien inneholder knapper for Visual Basic-makroer . Du vil bruke en VBA-makro for å liste opp filene i en katalog og butikk som liste i et nytt regneark.
2

Klikk på " Utvikler " fanen , og klikk deretter på " Visual Basic" -knappen for å inn i Visual Basic programmering miljø . Dobbeltklikk på " Denne arbeidsboken " element i navigasjonsruten på skjermen igjen . Denne handlingen åpner et nytt programmeringsspråk vindu der du kan skrive din katalogoppføring program .
3

Lim inn følgende program i programmeringsvinduet . Dette programmet bruker VBA-funksjon " Dir " for å lese en katalog. Utgangen av at funksjonen er en enkelt fil fra den katalogen.

Option Explicit

Public Sub listfiles ()

Dim d

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

MsgBox d

End Sub
4

Klikk på en av programmets utsagn , og klikk deretter på " Kjør"- menyen " Kjør "-kommandoen for å kjøre programmet . Excel vil vise en meldingsboks som angir navnet på en fil i mappen "C : . \\ Windows "
5

Lim inn følgende program etter " End sub ​​" statement av det første programmet . Dette programmet lager en ny arbeidsbok og setter inn en verdi i en av sine celler . Den endelige program som viser en katalogens filer vil bruke uttalelsene i dette programmet for å sette inn filnavn i en ny arbeidsbok .

Option Explicit

Public Sub MakeNewWorkbook ( )

arbeidsbøker . Legg

activeCell = "Hello there"

End Sub
6

Kjør programmet som du gjorde den forrige, og klikk deretter på "Excel "-ikonet i oppgavelinjen i Windows for å gå tilbake til Excel. Programmet vil legge til en ny arbeidsbok hvis nåværende regneark viser teksten "Hello there" i celle A1 .
7

Bruk trinn 2 instruksjoner for å gå tilbake til VBA programmering miljøet , og deretter lime inn følgende program etter "End Sub " statement av det forrige programmet . Dette programmet bruker " Dir " funksjonen for å samle alle filene i " C : \\ windows "-mappen . Programmet lagrer hver filnavnet i sin egen rad i et regneark med en ny arbeidsbok .

Option Explicit

Public Sub ListOneFile ( )

Dim d

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

Workbooks.Add

gjøre før d = " "

ActiveCell = d

' flytte ned

ActiveCell.Offset ( 1 ) . Velg

d = Dir

Loop

End Sub
8

Kjør programmet som du gjorde de forrige , og deretter gå tilbake til Excel ved hjelp av trinn 6 instruksjoner. Du vil se et nytt regneark der cellene vise en liste over alle filene i " C : \\ windows " . Katalog