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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

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

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.

Nota: En el ejemplo se recorre todo el contenido desde la fila 20 hasta la columna 5, o indicar las filas y columnas a importar, especificando el valor en los parámetros correspondientes en la rutina que importa los valores de la hoja

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 'Variables para acceder a la hoja excel Dim obj_Excel As Object, obj_Workbook As Object, obj_Worksheet As Object Private Sub Excel_FlexGrid( _ sPath As String, _ FlexGrid As Object, _ Filas As Integer, _ Columnas As Integer) Dim i As Long Dim n As Long On Error GoTo error_sub If Len(Dir(sPath)) = 0 Then MsgBox "El archivo no existe", vbCritical Exit Sub End If Me.MousePointer = vbHourglass Set obj_Excel = CreateObject("Excel.Application") 'obj_Excel.Visible = True Set obj_Workbook = obj_Excel.Workbooks.Open(sPath) Set obj_Worksheet = obj_Workbook.ActiveSheet With MSFlexGrid1 ' Especificar acá la cantidad de filas y columnas .Cols = Columnas .Rows = Filas 'Recorremos las filas del FlexGrid para agregar los datos For i = 0 To .Rows - 1 .Row = i 'Recorremos las columnas del FlexGrid For n = 0 To .Cols - 1 .Col = n 'Asignamos el Texto de la celda del Flex el contenido _ de la celda del excel .Text = obj_Worksheet.Cells(i + 1, n + 1).Value Next Next End With obj_Workbook.Close obj_Excel.quit Descargar Exit Sub error_sub: MsgBox Err.Description Descargar End Sub 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 Private Sub Command1_Click() Call Excel_FlexGrid("c:\archivo.xls", MSFlexGrid1, 6, 2) End Sub Private Sub Form_Load() Me.Caption = " Importar Excel a FlexGrid " Command1.Caption = " Importar a Flexgrid " End Sub Private Sub Form_Unload(Cancel As Integer) Descargar End Sub

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb