Come avere Excel leggere una directory e creare un foglio di calcolo

Saper utilizzare Excel per leggere una directory e creare un foglio di calcolo che elenca il contenuto della directory consente di utilizzare Excel come applicazione di gestione dei file . Ad esempio, è possibile fornire a un utente con un elenco di directory da cui si può scegliere una tabella di database di Access per importare nella corrente cartella di lavoro di Excel . Il progetto di questo articolo si basa sul linguaggio di programmazione di Excel , Visual Basic, Applications Edition , o VBA in breve. È possibile utilizzare questo linguaggio per automatizzare qualsiasi operazione di Excel che non richiede l' intervento dell'utente . Un modo efficace per imparare questa lingua è quello di usare il comando "Registra macro " di Excel sul suo tab " Sviluppo " . Istruzioni
1

Fare clic sul pulsante "Opzioni" del pulsante Office, quindi fare clic su "Mostra sviluppatore " casella per rivelare la scheda " Sviluppo " . Questa scheda contiene i pulsanti per le macro di Visual Basic . Potrai utilizzare una macro VBA per elencare i file in una directory e conservare l'elenco in un nuovo foglio di calcolo .

2 Fare clic sulla scheda "Sviluppatore " , quindi fare clic sul pulsante " Visual Basic " per accedere all'ambiente di programmazione Visual Basic . Fare doppio clic sulla voce " Questa cartella di lavoro " nel pannello di navigazione a sinistra dello schermo . Questa azione apre una nuova finestra di programmazione in cui per entrare il vostro programma di directory.
3

Incollare il seguente programma nella finestra di programmazione . Questo programma utilizza la funzione VBA " Dir " per leggere una directory. L'output di tale funzione è un singolo file da quella directory .

Option Explicit

ListFiles Public Sub ()

Dim d

d = Dir ( "c : \\ \\ * finestre " ) per

MsgBox d

End Sub
4

Clicca su uno dichiarazioni del programma , quindi fare clic sul menu " Run " di "Esegui " il comando per eseguire il programma . Excel visualizza una finestra di messaggio che indica il nome di un file nella cartella " C : \\ Windows. "
5

Incollare il seguente programma dopo il " sub End" dichiarazione del primo programma . Questo programma crea una nuova cartella di lavoro e inserisce un valore in una delle sue celle . Il tuo programma finale che elenca i file di una directory utilizzerà le dichiarazioni in questo programma per inserire i nomi dei file in una nuova cartella di lavoro .

Option Explicit

pubblico MakeNewWorkbook Sub ( )

cartelle di lavoro . Aggiungi

ActiveCell = " Ciao a tutti "

End Sub
6

Eseguire il programma che avete fatto la precedente, e quindi fare clic sull'icona "Excel " in Nella barra delle applicazioni di Windows per tornare a Excel . Il vostro programma aggiungerà una nuova cartella di lavoro il cui foglio di calcolo corrente visualizza il testo " Ciao a tutti " nella cella A1 .
7

Usa step 2 di istruzioni per tornare all'ambiente di programmazione VBA , e quindi incollare il seguente programma dopo il "Sub End" dichiarazione del programma precedente . Questo programma utilizza la funzione " Dir " per raccogliere tutti i file nella cartella "C : \\ windows " cartella . Il programma memorizza ogni nome di file nella relativa riga in un foglio di calcolo di una nuova cartella di lavoro .

Option Explicit

Public Sub ListOneFile ( ) per

Dim d

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

Workbooks.Add

fare fino a d = " "

ActiveCell = d

' spostare verso il basso

ActiveCell.Offset ( 1) . Selezionare

d = Dir

loop

End Sub
8

eseguire il programma come avete fatto i precedenti, e poi tornare a Excel utilizzando le istruzioni passo di 6 . Vedrete un nuovo foglio di calcolo le cui cellule visualizzare un elenco di tutti i file nella cartella "C : \\ windows " . Directory