AYUDA!! Please :,-(
Publicado por Javi G. M. (36 intervenciones) el 13/03/2001 14:14:28
Tengo el siguiente programa que vuelca un Grid a un fichero Excel.
Workbooks.Open FileName:="c:\mis documentos\prueba.xls"
For e = 1 To MSHFlexGrid1.Rows
Workbooks(1).Worksheets(1).Cells(1 + e, 1).Value
= MSHFlexGrid1.TextMatrix(e, 0)
Next e
Workbooks(1).SaveAs("c:\mis documentos\pruebaD.xls")
Workbooks.Close
Workbooks.Application.Quit
Hace bien el volcado, pero creo que despues no se libera de la memoria. Porque el programa se me queda "colgado".
1- ¿Alguien sabe como puedo hacerlo para liberlarlo completamente?
2- Cuando se trabaja con muchos registros mas de 500, el proceso es muy lento. ¿Sabe alguien si hay alguna manera de exportar datos de un Grid o una base de Datos a Excel con más rapidez?
Workbooks.Open FileName:="c:\mis documentos\prueba.xls"
For e = 1 To MSHFlexGrid1.Rows
Workbooks(1).Worksheets(1).Cells(1 + e, 1).Value
= MSHFlexGrid1.TextMatrix(e, 0)
Next e
Workbooks(1).SaveAs("c:\mis documentos\pruebaD.xls")
Workbooks.Close
Workbooks.Application.Quit
Hace bien el volcado, pero creo que despues no se libera de la memoria. Porque el programa se me queda "colgado".
1- ¿Alguien sabe como puedo hacerlo para liberlarlo completamente?
2- Cuando se trabaja con muchos registros mas de 500, el proceso es muy lento. ¿Sabe alguien si hay alguna manera de exportar datos de un Grid o una base de Datos a Excel con más rapidez?
Valora esta pregunta
0