Buen día, probe el código sobre Windows 10 y Office 2013, tanto con Fox 7.0 y 9.0 y funciona OK. Coincido que la línea "sgoExcel.Workbooks.Add" no debería ir.
El 6 de julio de 2016, 17:10, Mario Andrés Ageno < [email protected]> escribió: > Gracias Pablo > Como lo venia haciendo me funciona desde el office 2000 mas o menos ahora > con la nueva versión del office me daba error > Saludos > > > *From:* pablo.oviedo <[email protected]> > *Sent:* Wednesday, July 06, 2016 8:15 AM > *To:* GUFA List Member <[email protected]> > *Subject:* [GUFA] Abrir Excel 2013 > > > 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] > > -- -------------------- Jorge Alomar
