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

128 - Leer un rango de datos de Excel e importarlo a un control FlexGrid

Contenido

Importar a un Flexgrid datos desde Excel
Importar datos desde una planilla y resaltar valores numéricos
Enlaces relacionados

Importar a un Flexgrid datos desde Excel

Esta rutina es lo que hace es abrir una hoja de cálculo Excel y recorrer mediante un bucle un rango de celdas y a medida que se recorren , mostrar esos datos en un control FlexGrid o Microsoft Hierarchical FlexGrid , para importarlos.

En el ejemplo se recorre todo el contenido desde la fila 20 hasta la columna 5. Para indicar las filas y columnas a importar, indicarel valor en los parámetros correspondientes en la rutina que importa los valores de la hoja. También , por defecto se leerá los datos de la hoja activa que muestre el Excel. Para acceder a una hoja concreta, indicarlo en el último parámetro de la función ( Parámetro sSheetName )

Nota . Este código fuente ha sido probado con Excel versión 2000.

Controles

Colocar un Command1
Un control Ms FlexGrid
Especificar en el método Workbooks.Open la ruta del Libro de Excel

Código fuente en un formulario

Option Explicit ' \\ -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' --------------------------------------------------------------------------------- ' -- Variables para acceder a la hoja excel Private obj_Excel As Object Private obj_Workbook As Object Private obj_Worksheet As Object ' ---------------------------------------------------------------------------------- ' \\ -- Inicio ' ---------------------------------------------------------------------------------- Private Sub Form_Load() Me.Caption = " Importar Excel a FlexGrid " Command1.Caption = " Importar a Flexgrid " ' -- Configurar el Grid With MSFlexGrid1 .Cols = 10 .FixedCols = 0 End With End Sub ' ---------------------------------------------------------------------------------- ' \\ -- Fin ' ---------------------------------------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) Call Descargar End Sub ' ---------------------------------------------------------------------------------- ' \\ -- Función para leer los datos del Excel y cargarlos en el Flex ' ---------------------------------------------------------------------------------- Private Sub Excel_FlexGrid(sPath As String, FlexGrid As Object, Filas As Integer, Columnas As Integer, Optional sSheetName As String = vbNullString) Dim i As Long Dim n As Long On Error GoTo error_sub ' -- Comproba si existe l archivo If Len(Dir(sPath)) = 0 Then MsgBox "No se ha encontrado el archivo: " & sPath, vbCritical Exit Sub End If Me.MousePointer = vbHourglass ' -- crea rnueva instancia de Excel Set obj_Excel = CreateObject("Excel.Application") 'obj_Excel.Visible = True ' -- Abrir el libro Set obj_Workbook = obj_Excel.Workbooks.Open(sPath) ' -- referencia la Hoja, por defecto la hoja activa If sSheetName = vbNullString Then Set obj_Worksheet = obj_Workbook.ActiveSheet Else Set obj_Worksheet = obj_Workbook.Sheets(sSheetName) End If ' -- Setear Grid With MSFlexGrid1 ' -- Especificar la cantidad de filas y columnas '.Cols = Columnas .Rows = Filas ' -- Recorrer las filas del FlexGrid para agregar los datos For i = 1 To .Rows - 1 ' -- Establecer la fila activa .Row = i ' -- Recorrer las columnas del FlexGrid For n = 0 To .Cols - 1 ' -- Establecer columna activa .Col = n ' -- Asignar a la celda del Flex el contenido de la celda del excel .Text = obj_Worksheet.Cells(i + 1, n + 1).Value Next Next End With ' -- Cerrar libro obj_Workbook.Close ' -- Cerrar Excel obj_Excel.quit ' -- Descargar objetos para liberar recursos Call Descargar ' -- Errores Exit Sub error_sub: MsgBox Err.Description Call Descargar Me.MousePointer = vbDefault End Sub ' ---------------------------------------------------------------------------------- ' \\ -- Función para descargar los objetos ' ---------------------------------------------------------------------------------- Private Sub Descargar() On Local Error Resume Next Set obj_Workbook = Nothing Set obj_Excel = Nothing Set obj_Worksheet = Nothing Me.MousePointer = vbDefault End Sub ' ---------------------------------------------------------------------------------- ' \\ -- Botón para leer los datos del libro e importarlos al Grid ' ---------------------------------------------------------------------------------- Private Sub Command1_Click() Call Excel_FlexGrid("c:\libro.xls", MSFlexGrid1, 20, 5, "Sheet1") End Sub

Importar datos de planilla y resaltar valores de las celdas con colores

Este otro ejemplo es similar al anterior y muestra una forma de poder, luego de leer los datos desde una planilla, remarcar los valores de un color.

En el ejemplo se lee una simple hoja de un libro de Excel que contiene dos columnas ( Fecha y Gastos). Los valores de la columna Gastos que sean superiores a $20, se remarcarán de color rojo, utilizando la propiedad CellForecolor del Grid.

Descargar código fuente

Vista previa del form

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb