Hola grupo
tenia automatizado los reportes enviados a Excel pero en las versiones de
Office 2013 me da un error de ActiveX que me cambio que no me deja abrir mas
asi
yo utilizo este codigo para crear y abrir el reporte
cArchivo = This.Parent.ArchivoDestino
COPY TO (cArchivo) TYPE XLS
IF TYPE('sgoExcel') <> "O"
PUBLIC sgoExcel
sgoExcel = CREATEOBJECT("Excel.Application")
ENDIF
IF TYPE("sgoExcel") == "O"
WAIT WIND NOWAIT "Abriendo (MS Excel) " + ALLTRIM(cArchivo)
sgoExcel.Workbooks.Add
sgoExcel.WorkBooks.Open(cArchivo)
sgoExcel.Visible = .T.
RELEASE sgoExcel
ENDIF
GRACIAS
------
Mario Andrés Ageno
Analista de Sistemas
de Computación
Italia 2317 - 3040 San Justo (SF)
Tel.:03498-423066
Personal: 03498-15680413
mail: [email protected]
web: www.maasoft.com.ar
skype: [email protected]
