VFP 7.0 y Excel.
Estimados :
Necesito modificar el formato de las celdas de una hoja de excel que estoy creando por VFP. El problema es que no he podido hacerlo. Ya les pongo a las celdas información, pero necesito ponerle a la Celda, que se autoajuste, letra negrita, etc...
Ojala puedan responderme pronto.
Saludos
Gustavo Jui
Necesito modificar el formato de las celdas de una hoja de excel que estoy creando por VFP. El problema es que no he podido hacerlo. Ya les pongo a las celdas información, pero necesito ponerle a la Celda, que se autoajuste, letra negrita, etc...
Ojala puedan responderme pronto.
Saludos
Gustavo Jui
Respuesta de netbuzos
1
Espero que te sirva
Oexcel = CREATEOBJECT("Excel.Application")
Wait CLEAR
If TYPE('Oexcel')#'O'
=MESSAGEBOX("No se puede procesar el archivo porque no tiene la aplicación"+CHR(13)+;
"Microsoft Excel instalada en su computador.", ;
rmb_iconexclamation, ;
business_loc)
Return .F.
Endif
Oexcel.VISIBLE=.T.
XLApp = Oexcel
XLApp.workbooks.ADD()
XLSheet = XLApp.ActiveSheet
XLSheet.Cells(1,1).VALUE='Prueba'
XLSheet.Cells(1,1).FONT.NAME = "Arial"
XLSheet.Cells(1,1).FONT.SIZE = 10
XLSheet.Cells(1,1).FONT.bold = .T.
XLSheet. COLUMNS. AutoFit
Oexcel = CREATEOBJECT("Excel.Application")
Wait CLEAR
If TYPE('Oexcel')#'O'
=MESSAGEBOX("No se puede procesar el archivo porque no tiene la aplicación"+CHR(13)+;
"Microsoft Excel instalada en su computador.", ;
rmb_iconexclamation, ;
business_loc)
Return .F.
Endif
Oexcel.VISIBLE=.T.
XLApp = Oexcel
XLApp.workbooks.ADD()
XLSheet = XLApp.ActiveSheet
XLSheet.Cells(1,1).VALUE='Prueba'
XLSheet.Cells(1,1).FONT.NAME = "Arial"
XLSheet.Cells(1,1).FONT.SIZE = 10
XLSheet.Cells(1,1).FONT.bold = .T.
XLSheet. COLUMNS. AutoFit
