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