AYUDA URGENTE
Publicado por Javi G.M. (36 intervenciones) el 08/03/2001 18:13:56
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?
Gracias a todos.
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?
Gracias a todos.
Valora esta pregunta
0