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

240 - Exportar un Flexgrid a Excel

<Volver> - Anterior - Siguiente

Ejemplo que exporta el contenido de una grilla de tipo MsFlexGrid o MsHFlexGrid a una hoja de cálculo Excel

Controles

Colocar en un Formulario un Flexgrid
un CommandButton
indicar la ruta donde se creará la hoja de Excel con los datos

vista del formulario con los datos a exportar a al archivo xls

Nota: Agregar la referencia a Microsoft Excel Object Library, un formulario y un Módulo bas

Código fuente en un módulo bas

Public Function Exportar_Excel( _ Path_Libro As String, _ FlexGrid As MSFlexGrid) As Boolean On Error GoTo errSub 'Variables para la aplicación Excel, el libro y la hoja Dim o_Excel As Object Dim o_Libro As Object Dim o_Hoja As Object 'Para las filas y columnas del FlexGrid y la Hoja Dim Fila As Integer Dim Columna As Integer If Path_Libro = vbNullString Then ' Falta la ruta del libro MsgBox " Falta el Path del archivo de Excel " Exit Function End If Exportar_Excel = False ' crea los objetos y agrga el libro y la hoja Set o_Excel = New Excel.Application Set o_Libro = o_Excel.Workbooks.Add Set o_Hoja = o_Libro.Worksheets.Add ' Recorremos el FlexGrid por filas y columnas For Fila = 1 To FlexGrid.Rows - 1 For Columna = 0 To FlexGrid.Cols - 1 ' Agrega el Valor en la celda indicada del Excel o_Hoja.Cells(Fila, Columna + 1).Value = _ FlexGrid.TextMatrix(Fila, Columna) Next Columna Next Fila ' Para guardar el Libro o_Hoja.SaveAs Path_Libro ' Cierra el libro o_Libro.Close ' Cierra el excel o_Excel.Quit ' Elimina las instancias If Not o_Excel Is Nothing Then Set o_Excel = Nothing End If If Not o_Libro Is Nothing Then Set o_Libro = Nothing End If If Not o_Hoja Is Nothing Then Set o_Hoja = Nothing End If Exportar_Excel = True Exit Function 'Error errSub: 'Cierra la hoja y el la aplicación Excel If Not o_Libro Is Nothing Then: o_Libro.Close False If Not o_Excel Is Nothing Then: o_Excel.Quit 'Liberar los objetos Set o_Excel = Nothing Set o_Libro = Nothing Set o_Hoja = Nothing If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Function

Colocar el Código fuente en el formulario:

Option Explicit '*************************************************************************** ' Exportar un MsFlexGrid a Microsoft Excel ' Agregar la Referencia a Microsoft Excel Object Library '*************************************************************************** Private Sub Command1_Click() If Exportar_Excel(Text1, MSFlexGrid1) Then MsgBox " Datos exportados ", vbInformation End If End Sub Private Sub Form_Load() With MSFlexGrid1 .AllowUserResizing = flexResizeColumns .FixedCols = 0 End With Command1.Caption = " Exportar a Excel " End Sub

Recursos vb 6.0 - Enlaces relacionados

Importar un rango de datos de Excel a un MsFlexGrid

Recursos visual basic.NET - Enlaces relacionados

Cargar excel en un DataGridview

Buscar en Recursos vb