Funciona bien en mi computadora, pero en la del cliente no.
Alguna idea? Dejo trozo de código.
Saludos y gracias.
Ruben Dario Fernández
Me da error en
oExcel:oHoja("Hoja1") y
oHoja:Cells:Font:Name := "Arial"
Esto funciona bien en Excel 32 bits.
- Code: Select all Expand view
- oExcel := ExcelObj()
If oExcel == nil
MsgInfo("Excel no está instalado", "Informe")
RETURN(.F.)
Endif
oExcel := TOleAuto():New("Excel.Application")
oExcel:WorkBooks:Add()
oExcel:oHoja("Hoja1") ; oHoja:=oExcel:ActiveSheet()
oHoja:Cells:Font:Name := "Arial"