Tecnología

Inicio

Cómo abrir archivos XLS en un formulario en VBA

January 30

Cómo abrir archivos XLS en un formulario en VBA


Microsoft Office Excel es una hoja de cálculo utilizada para analizar grandes cantidades de datos. Microsoft Visual Basic para Aplicaciones (VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias en las aplicaciones de Microsoft Office. Se pueden crear interfaces gráficas de usuario (GUI) en Excel para proporcionar una mayor flexibilidad para el usuario. En unos pocos pasos, se puede escribir código VBA para abrir un libro de Excel existente y mostrar su contenido a través de un control de cuadro de lista.

Instrucciones

1 Iniciar Microsoft Office Excel y escriba lo siguiente en "Sheet1".

Tipo "Campo1" en "A1", "Campo2" en "B1" y "Campo3" en "C1"

Tipo "1" en "A2", "2.1" en "B2", y "3,5" en "C2"

Guarde el libro de "C: \" como "myExcelData.xls."

2 Iniciar Microsoft Office Excel, seleccione la pestaña "desarrolladores" y luego haga clic en "Visual Basic". Seleccione el menú "Insertar" y haga clic en "formulario de usuario."

Haga clic en el control "ListBox" y en la ventana "Caja de Herramientas" clic izquierdo en cualquier parte de "UserForm1" para crear un cuadro de lista. Haga clic en "CommandButton" y haga clic izquierdo en cualquier parte de "UserForm1" para crear un nuevo botón.

3 Haga clic en "ListBox1" en su forma y seleccionar "Propiedades".

Tipo 3 junto a "NúmeroDeColumnas."

4 Haga doble clic en "CommandButton1" para abrir Microsoft Visual Basic.

Copia y pega el siguiente código en el nuevo módulo.

5 Private Sub CommandButton1_Click ()

Dim xlApp Como Excel.Application

Dim XLWbook Como libro de trabajo

Establecer xlApp = Nueva Excel.Application

Establecer XLWbook = XLApp.Workbooks.Open ( "C: \ myExcelData.xls")

XLWbook.Sheets ( "Sheet1"). Seleccionar

XLWbook.Sheets ( "Sheet1"). Range ( "A1"). Select

Me.ListBox1.AddItem

Me.ListBox1.List (0, 0) = XLWbook.Sheets ( "Sheet1"). Range ( "A1"). Valor

XLWbook.Sheets ( "Sheet1"). Range ( "B1"). Seleccionar

Me.ListBox1.AddItem

Me.ListBox1.List (0, 1) = XLWbook.Sheets ( "Sheet1"). Range ( "B1"). Value

XLWbook.Sheets ( "Sheet1"). Range ( "C1"). Select

Me.ListBox1.AddItem

Me.ListBox1.List (0, 2) = XLWbook.Sheets ( "Sheet1"). Range ( "C1"). Valor

XLWbook.Sheets ( "Sheet1"). Range ( "A2"). Select

Me.ListBox1.AddItem

Me.ListBox1.List (1, 0) = XLWbook.Sheets ( "Sheet1"). Range ( "A2"). Valor

XLWbook.Sheets ( "Sheet1"). Range ( "B2"). Seleccionar

Me.ListBox1.AddItem

Me.ListBox1.List (1, 1) = XLWbook.Sheets ( "Sheet1"). Range ( "B2"). Value

XLWbook.Sheets ( "Sheet1"). Range ( "C2"). Select

Me.ListBox1.AddItem

Me.ListBox1.List (1, 2) = XLWbook.Sheets ( "Sheet1"). Range ( "C2"). Valor

XLWbook.Close

End Sub

6 Pulse la tecla "F5" y haga clic en "CommandButton1" para abrir el "myExcelData.xls" y mostrar su contenido en el cuadro de lista.