Come avere Excel leggere una directory e creare un foglio

September 21

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

istruzione

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

2 Fare clic sulla scheda "Sviluppatore", e 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 inserire il programma di directory.

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

Option Explicit

ListFiles Public Sub ()

Dim d

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

MsgBox d

End Sub

4 Fare clic su una delle dichiarazioni del programma, e quindi fare clic su comando "Esegui" del menu "Run" 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 "End Sub" dichiarazione del primo programma. Questo programma crea una nuova cartella e inserisce un valore in una delle sue celle. Il vostro programma finale che elenca i file di una cartella userà le dichiarazioni in questo programma per inserire i nomi dei file in una nuova cartella di lavoro.

Option Explicit

Public Sub MakeNewWorkbook ()

Workbooks.Add

ActiveCell = "Ciao a tutti"

End Sub

6 Eseguire il programma che avete fatto quello precedente, e quindi fare clic sull'icona "Excel" 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 Utilizzare le istruzioni passo 2 di tornare all'ambiente di programmazione VBA, e quindi incollare il seguente programma dopo il "End Sub" 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 propria riga in un foglio di calcolo di una nuova cartella di lavoro.

Option Explicit

Public Sub ListOneFile ()

Dim d

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

Workbooks.Add

Fare fino D = ""

ActiveCell = d

'abbassati

ActiveCell.Offset (1) .Select

d = Dir

Ciclo continuo

End Sub

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