iscorr
26 de Enero del 2006

Hola... disculpen las molestias pero alguien podria hacesorarme de como pasar o exportar un MSFlexGrid a Una Hoja de Excel con un Titulo en ella y con los titulos de cada columnas ya con formato es decir con texto en negritas y la celda en color....
Alguien podra acesorarme..? de antemano lo agradesco

Rosa
26 de Enero del 2006

Hola, podrías hacer una plantilla en excel, un archivo .xlt donde pongas el título y los encabezados con el formato que quieres. Luego le pasas a una macro en ese excel el contenido del grid y esa macro tendría que pintar los datos en las celdas.

Para pasar datos a una macro puedes usar este código:
(Previamente en tu aplicación tienes que hacer referencia a la librería del excel)

Dim lobjExcel As Excel.Application
Dim lobjWorkbook As Excel.Workbook

Set lobjExcel = New Excel.Application
lobjExcel.Visible = True

Set lobjWorkbook = lobjExcel.Workbooks.Open( _
App.Path & "NombreArchivo.xlt", _
, _
True)

'Correr la macro de excel
lobjExcel.Run "NombreMacro", "Parametro1"

'Cierra el excel
lobjExcel.Quit

Set lobjWorkbook = Nothing
Set lobjExcel = Nothing

En lugar de pasar sólo una cadena como parámetro puedes pasar toda la inf de grid en un array y recibirlo así en la macro.
Si lo necesitas te paso un ejemplo a tu correo