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