Mario, cuando debugeas en que línea exacta te da el error? Si es en el .Open(cArchivo) a lo mejor el error es el path.
El 7 de julio de 2016, 8:20, Jorge Alomar <[email protected]> escribió: > 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 > > -- -------------------- Jorge Alomar
