TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

Modulo para exportar los datos de un control FlexGrid a documento de Excell(exporttoexel.bas)'Modulo descargado de la direccion:'http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/'240-exportar-flexgrid-a-excel.htm'Adaptado por Luis Mario Mercado.Public Function Exportar_Excel(Path_Libro As String, _FlexGrid As MSFlexGrid) As BooleanOn Error GoTo errSub'Variables para la aplicación Excel, el libro y la hojaDim o_Excel As ObjectDim o_Libro As ObjectDim o_Hoja As Object'Para las filas y columnas del FlexGrid y la HojaDim Fila As IntegerDim Columna As IntegerIf Path_Libro = vbNullString Then' Falta la ruta del libroMsgBox " Falta el Path del archivo de Excel "Exit FunctionEnd IfExportar_Excel = False' crea los objetos y agrga el libro y la hojaSet o_Excel = New Excel.ApplicationSet o_Libro = o_Excel.Workbooks.AddSet o_Hoja = o_Libro.Worksheets.Add' Recorremos el FlexGrid por filas y columnasFor Fila = 1 To FlexGrid.Rows - 1For Columna = 0 To FlexGrid.Cols - 1' Agrega el Valor en la celda indicada del Excelo_Hoja.Cells(Fila, Columna + 1).Value = _FlexGrid.TextMatrix(Fila, Columna)Next ColumnaNext Fila' Para guardar el Libroo_Hoja.SaveAs Path_Libro' Cierra el libroo_Libro.Close' Cierra el excelo_Excel.Quit' Elimina las instanciasIf Not o_Excel Is Nothing ThenSet o_Excel = NothingEnd IfIf Not o_Libro Is Nothing ThenSet o_Libro = NothingEnd IfIf Not o_Hoja Is Nothing ThenSet o_Hoja = NothingEnd IfExportar_Excel = TrueExit Function'ErrorerrSub:- 163 -