Unidad 6. Creación de formularios de usuario (VI)

Ejemplo 04

Ahora diseñe un formulario que permita ingresar por teclado la ruta en donde se encuentra los archivos que se va a usar, que pida el nombre del libro a ser abierto y luego muestre el número de hojas de dicho libro.

Procedimiento:

P1. Inserte un nuevo formulario. Haga que su nombre sea FrmAbrir; que su caption sea "Abrir libros".

P2. Inserte dos botones de comando. Que el primero tenga por Name: CmdAbrirLibro y su caption sea "Abre Libro". Que el segundo botón tenga por Name: CmdTerminar y su caption sea "Terminar".

P3. Luego de hacer doble clic en el primer botón, ingrese las siguientes líneas de código:

     Dim Ruta As Variant

Dim LibroXx As Variant

Ruta = InputBox("Ingrese la ruta en donde se" & Chr(10) & "encuentren los archivos a ser usados") + "/"

LibroName = InputBox("Nombre del libro")

Libro = Trim(Ruta) + Trim(LibroName) + ".xls"

Workbooks.Open Libro

MsgBox (Workbooks.Application.ActiveWorkbook.Sheets.Count)

P4. Vuelva al formulario haciendo clic en el botón central de  

     Y a continuación haga doble clic en el segundo botón para digitar la instrucción   End.

P5. Supongamos que desea abrir el archivo Tempo.xls, que se encuentra en la ruta: d:\Mis archivos\Libros. Ejecute el formulario. Ingrese la ruta; haga clic en <Aceptar> y digite el nombre del archivo sin extensión que desea abrir.

Nota:

El libro a ser abierto debe ser de extensión xls. Si la extensión es otra será suficiente modificar el código.

 Cursos Informática Gratuitos