Exportar datosa excel

[leophp]

Hola, utilizo el siguiente codigo para realizar la exportacion de datos desde una msfexgrid a una planilla, este funciona sin problemas, el unico inconveniente es que tarda demasiado cuando hay muchos datos, existe alguna forma de acelerar el proceso ?

Código:

            Set objExcel = CreateObject("Excel.Application")
            objExcel.Visible = False
            objExcel.DisplayAlerts = False
            Set objWorkbook = objExcel.Workbooks.Add
            Set objWorksheet = objWorkbook.Worksheets(1)
            For F = 0 To objgrid.Rows - 1
                For C = 0 To objgrid.Cols - 1
                    objgrid.Row = F
                    objgrid.Col = C
                    objWorksheet.Cells(F + 1, C + 1).Value = objgrid.Text
                Next C
            Next F
            'Graba el archivo excel y lo cierra
            objWorkbook.SaveAs (nombre)
            objExcel.Quit

[David]

Prueba a colocar esto antes del bucle For:

Código PHP:

  objExcel.ScreenUpdating = False
objWorksheet.EnableCalculation = False  
   

Después, al final del bucle:

Código PHP:

  objWorksheet.EnableCalculation = True  
   

Con eso impedimos que la aplicación intente volver a pintar la pantalla y también evitamos que la hoja vuelva a calcularse cada vez que ingresamos un dato, tal vez con eso se acelere un poco el proceso.

[leophp]

No mejoro mucho,

25 minutos 2.500 filas y 74 columas
es demasiado.

[Avellaneda]

Iniciado por leophp

No mejoro mucho,

25 minutos 2.500 filas y 74 columas
es demasiado.

¿Y cómo cargas el MSFlexGrid?

Porque si es a través de una tabla o un recordset puedes exportar más rápido con un SELECT * INTO o un CopyFromRecordset, en vez de hacerlo a través del propio MSFlexGrid.

[leophp]

como es una funcion general que uso en muchos programas, en algunos se llena con una SQL y en otra a travez de procesos (la mayoria).