Hola, no deberias abrilo con sgoExcel.application.WorkBooks.Open(cArchivo)?
Yo lo uso asi y me funciona:
loExcel=CREATEOBJECT("Excel.application")
WITH loExcel.APPLICATION
.VISIBLE = .t.
.workbooks.OPEN(lcArchivo)
saludos.
-----Original Message-----
From: Mario Andrés Ageno <[email protected]>
To: "GUFA List Member" <[email protected]>
Date: Tue, 5 Jul 2016 18:34:09 -0300
Subject: [GUFA] Abrir Excel 2013
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]
