Sección de códigos , trucos y ejemplos para visual basic

38 - Ejemplo que importa los datos de una hoja de Excel a un ComboBox

Ejemplo que utiliza la referencia Microsoft excel desde visual basic, para leer datos de una hoja, e importar los mismos a un ComboBox

Este ejemplo es muy simple, y lo que hace es obtener los datos de una columna concreta de una hoja, mediante un bucle, consultando el valor de la celda mediante el objeto .Cells del objeto Sheets

A .Cells , se le indica el número de la fila y de la columna

Para el ejemplo hay que:

Incluir la referencia de Microsoft Excel desde el menú referencias de Visual basic
Crear un archivo Excel en el directorio del programa llamado Archivo.xls
Colocar valores en la columna B, desde la fila 1 hasta la fila 7
Colocar un ComboBox

Código fuente en el formulario

Option Explicit ' Importante : Agregar la referencia a Micorosft Excel xx object library ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() 'Variable de tipo Aplicación de Excel Dim objExcel As Excel.Application 'Una variable de tipo Libro de Excel Dim xLibro As Excel.Workbook Dim Col As Integer, Fila As Integer 'creamos un nuevo objeto excel Set objExcel = New Excel.Application 'Usamos el método open para abrir el archivo que está _ en el directorio del programa llamado archivo.xls Set xLibro = objExcel.Workbooks.Open(App.Path + "\archivo.xls") 'Hacemos el Excel Visible objExcel.Visible = True With xLibro ' Hacemos referencia a la Hoja With .Sheets(1) 'Recorremos la fila desde la 1 hasta la 7 For Fila = 1 To 7 'Agregamos el valor de la fila que _ corresponde a la columna 2 Combo1.AddItem .Cells(Fila, 2) Next End With End With 'Eliminamos los objetos si ya no los usamos Set objExcel = Nothing Set xLibro = Nothing End Sub

Recursos vb 6.0 - Relacionados

Recursos vb.net - Relacionados

Cargar Excel en un control DataGridView

Buscar en Recursos vb