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

Formularios en Microsoft Office Excel pueden ayudar a sus datos actuales clara y directa , en lugar de hacer referencia a un archivo en su disco duro. La forma más rápida para importar datos a un formulario desde 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. Haga que su aplicación sea más fácil de usar al mostrar los datos de hoja de cálculo a través de formularios . 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 . Guárdelo en "C: \\ Temp" como " source.xlsx " y cierre la hoja de cálculo
2

lanzamiento Excel para abrir un nuevo libro. . Haga clic en la pestaña de " desarrolladores" , a continuación, haga clic en " Visual Basic ". Haga clic en el menú " Insertar" y haga clic en " UserForm1 " para añadir un nuevo formulario.
3

clic " ComboBox " en el panel " Toolbox" y arrastrarlo a su forma mientras se mantiene el puntero del ratón botón . Suelte el botón del ratón para crear un nuevo control de cuadro combinado . Añadir un nuevo botón de comando usando la misma técnica.
4

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

sourceXL As Excel.Application

Sourcebook As Excel.Workbook

sourceSheet As Excel.Worksheet
5

Añada el siguiente código al abrir el " source.xlsx " hoja de cálculo:

Set sourceXL = Excel.Application

Set Sourcebook = sourceXL . Workbooks.Open ("C: \\ temp \\ source.xlsx " )

Set 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 " . Seleccione

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

sourceSheet.Range ( "B1 ") . Seleccione

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

sourceSheet . Range (" C1" ) . Seleccione

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

sourceSheet.Range ( " D1 ") . Seleccione

Me.ComboBox1.AddItem ( sourceSheet.Range ( " D1 ") . Valor )
7

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