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: mario.ag...@sanjustosf.com.ar web: www.maasoft.com.ar skype: mario_ag...@hotmail.com