FoxPro/Visual FoxPro - Export a Excel 2010

 
Vista:

Export a Excel 2010

Publicado por Eduardo Daniel (123 intervenciones) el 18/11/2010 00:30:32
Hola amigos del foro, tengo dos sistemas donde le doy opciones al usuario para pasar información a Excel con un simple

Export to (nombrearchivo) type xls

Siempre funcionó bien, pero desde que se instaló en algunas PC's el Office 2010 los abre pero no deja editarlos.
Seguí las instrucciones para desbloquearlos pero no he conseguido la solución
Alguien sabe como hacerlo
Muchas gracias
Eduardo
Rosario - Santa Fé
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Export a Excel 2010

Publicado por gilberto (3 intervenciones) el 18/11/2010 17:48:44
No he probado el 2010, pero en 2007 me funciona de la siguiente manera puede enviar el cursor o tabla con:

copy all to (nombrearchivo) type xls ó xl5 ó xl8

o hacer lo siguiente

loexcel=CREATEOBJECT("Excel.application")
WITH loexcel.APPLICATION
.workbooks.OPEN("nombrearchivo.xls") && ABRIR LIBRO DE EXCEL

.VISIBLE = .F.

.sheets("Hoja1").SELECT

.RANGE("A1").SELECT
.activecell.formular1c1 = "TITULO"
.RANGE("B1").SELECT
.activecell.formular1c1 = CURSOR.CAMPO
.RANGE("A2").SELECT
.activecell.formular1c1 = "DATOS"
.RANGE("B2").SELECT
.activecell.formular1c1 = 10

.activeworkbook.SAVE
.workbooks.CLOSE

ENDWITH
RELE loexcel

Con este ultimo puedes jugar colocando negrias, lineas colores a las celdas, etc, ya que funciona con el codigo que generan las macros de excel, toma el codigo que genera una macro en excel y adaptado dentro de la rutina de fox ademas no importa la version de excel que tenga puesta ya que una macro de excel 2000 funciona en una excel 2007, con el detalle que demora mas pasar los datos.

Me cuenta si le funciono.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar