Cómo importar datos de una hoja de cálculo de Excel a un formulario creado en Excel

Formas en Microsoft Office Excel pueden ayudarle a presentar los datos de forma clara y directa, en lugar de hacer referencia a un archivo en el disco duro. La forma más rápida para importar datos a una forma de una hoja de cálculo es mediante el uso de Visual Basic para Aplicaciones (VBA). VBA es un lenguaje de programación utilizado para automatizar tareas manuales en las aplicaciones de Microsoft Office, como Excel. Hacer su aplicación más fácil de usar mediante la visualización de los datos de hoja de cálculo a través de formas.

Instrucciones

1 Lanzamiento de Microsoft Office Excel y escriba "2" en la celda "A1", "3" en la celda "B1", "4" en la celda "C1" y "5" en la celda "D1". Pulse la tecla "Ctrl" y "S" para guardar la hoja de cálculo. Guardarlo en "C: \ Temp" como "source.xlsx" y cerrar la hoja de cálculo.

2 Lanzar Excel para abrir un nuevo libro. Haga clic en la pestaña "desarrolladores", a continuación, haga clic en "Visual Basic". Haga clic en el menú "Insertar" y haga clic en "UserForm1" para añadir una nueva forma.

3 Haga clic en "ComboBox" en el panel de "caja de herramientas" y arrastrarlo a la forma mientras mantiene el botón del ratón. Suelte el botón del ratón para crear un nuevo control de cuadro combinado. Añadir un nuevo botón de comando utilizando la misma técnica.

4 Haga doble clic en "CommandButton1" para abrir el procedimiento de clic de eventos para el botón. Comience agregando el siguiente código VBA para crear las variables utilizadas para abrir la hoja de cálculo:

Dim sourceXL As Excel.Application

Dim Referencia, Excel.Workbook

Dim sourceSheet Como Excel.Worksheet

5 Agregue el siguiente código para abrir la hoja de cálculo "source.xlsx":

Set sourceXL = Excel.Application

Establecer libro de consulta = sourceXL.Workbooks.Open ( "C: \ Temp \ source.xlsx")

Establecer sourceSheet = sourceBook.Sheets (1)

6 Escriba el siguiente código para obtener los valores de "source.xlsx" y agregarlos al cuadro combinado en el formulario:

sourceSheet.Range("A1").Select

Me.ComboBox1.AddItem (sourceSheet.Range ( "A1"). Value)

sourceSheet.Range ( "B1"). Seleccionar

Me.ComboBox1.AddItem (sourceSheet.Range ( "B1"). Value)

sourceSheet.Range ( "C1"). Seleccionar

Me.ComboBox1.AddItem (sourceSheet.Range ( "C1"). Value)

sourceSheet.Range ( "D1"). Seleccionar

Me.ComboBox1.AddItem (sourceSheet.Range ( "D1"). Value)

7 Pruebe su programa pulsando la tecla "F5" y haciendo clic en el botón de comando para llenar su cuadro combinado.