Saber utilizar Excel para leer un directorio y crear una hoja de cálculo que el contenido del directorio le permite utilizar Excel como una aplicación de gestión de archivos. Por ejemplo , podría proporcionar a un usuario un listado de directorio desde el que se puede elegir una tabla de base de datos Access para importar en el actual libro de Excel. El proyecto de este artículo se basa en el lenguaje de programación de Excel , Visual Basic para Aplicaciones o VBA para abreviar. Usted puede usar este lenguaje para automatizar cualquier tarea Excel que no requiere intervención del usuario. Una manera efectiva de aprender este idioma es utilizar el comando "Grabar macro" de Excel en su pestaña " Developer " . Instrucciones
1

Haga clic en " Opciones" del botón de Office y, a continuación, haga clic en la opción "Mostrar desarrollador " casilla de verificación para mostrar la pestaña " Developer " . Esta ficha contiene botones para las macros de Visual Basic . Vamos a usar una macro VBA para listar los archivos en un directorio y guardar esa lista en una nueva hoja de cálculo.

2 Haga clic en la pestaña de " desarrolladores" y , a continuación, haga clic en el botón de "Visual Basic " para entrar en el entorno de programación Visual Basic . Haga doble clic en el elemento " Este cuaderno de trabajo " en el panel de navegación en la pantalla de la izquierda. Esta acción abre una nueva ventana de programación en el que para entrar en el programa de listado de directorios .
3

Pega el siguiente programa en la ventana de programación . Este programa utiliza la función VBA "Dir " para leer un directorio. La salida de esta función es un solo archivo de ese directorio.

Option Explicit

ListFiles Public Sub ( ) guía

Dim d

d = Dir ( "c: \\ windows \\ * " en el menú )

MsgBox d

End Sub
4

click en cualquiera de los estados del programa y , a continuación, haga clic en " Ejecutar" de "Ejecutar " de comandos para ejecutar el programa . Excel mostrará un cuadro de mensaje que indica el nombre de un archivo en la carpeta " C: . \\ Windows "
5

Pega el siguiente programa después de que el "End Sub" declaración del primer programa. Este programa crea un nuevo libro e inserta un valor en una de sus células. Su programa final que enumera los archivos de un directorio utilizará las declaraciones en este programa para insertar nombres en un libro nuevo .

Option Explicit

Pública MakeNewWorkbook Sub ( )

libros . Añadir

activecell = " Hola "

End Sub
6

Ejecutar el programa como lo hizo la anterior y , a continuación, haga clic en el icono " Excel " en la barra de tareas de Windows para volver a Excel . Su programa añadirá un nuevo libro cuya hoja de cálculo actual muestra el texto " Hola " en la celda A1.
Paso 7 Uso

de 2 instrucciones de volver al entorno de programación VBA y , a continuación, pegue el siguiente programa después el "End Sub" declaración del programa anterior. Este programa utiliza la función " Dir" para reunir todos los archivos en el directorio "C : \\ windows " carpeta. El programa almacena cada archivo en su propia fila en una hoja de cálculo de un libro nuevo .

Option Explicit Public Sub

ListOneFile ()

Dim d

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

Workbooks.Add

hacer hasta d = ""

ActiveCell = d

' bajar

ActiveCell.Offset ( 1 ) . Seleccione

d = Dir

Loop End Sub
8

Ejecutar el programa como lo hizo los anteriores, y luego volver a Excel usando instrucciones paso de 6 . Verás una nueva hoja de cálculo cuyas células se mostrará una lista de todos los archivos en el directorio "C : \\ windows " . Directorio