[Mundo Visual FoxPro] crear xls desde vfp6

[Juan Rojas C]

Buenos dias:

 

Gracias por la atencion:

 

En contabilidad, hay 2 computadoras conectadas en redes, la que trabaja como servidor tiene instalado el office 2007 y la otra esta con office 2003, (ver error archivo adjunto pantallazo.pdf), obligatoriamente el docuemnto tiene que crearse desde la compu que actua como servidor (office 2007), para luego ser concluido por el auxiliar contable (la compu que tiene office 2003): la rutina

con la cual genero el archivo en excel es y luego abro dicho archivo es:

 

create table xexcel(x c(10))
copy to \notas\XLS\&iorden type xls
USE
PUBLIC ox
SET DEFA TO \notas\XLS
iiorden=sys(5)+curdir()+'&iorden'
SET DEFA TO \notas
ox=CreateObject("Excel.application")
ox.visible=.F.
OX.WORKBOOKS.OPEN(iIORDEN)
ox.ActiveWindow.DisplayZeros = .f.
ox.Columns("G:G").NumberFormat = "#,##0.00"
OX.RANGE("B3:B3").FONT.BOLD=.T.
OX.RANGE("B5:G5").FONT.BOLD=.T.
OX.RANGE("B15:D16").FONT.BOLD=.T.
SELE 1
GO TOP
CFECHA=DTOC(FECHA1)
INOMBRE=ALLTRIM(NOMBRE)
IDIMINU=ALLTRIM(DIMINUTIVO)
IOTROS1=OTROS1
IOTROS2=OTROS2
IOTROS3=OTROS3
IOTROS4=OTROS4
ox.cells[03,2].value = 'CONCILIACION DE CTA. DE &INOMBRE'
ox.cells[05,2].value = 'SALDO A FAVOR DE &IDIMINU AL &CFECHA'
ox.cells[05,6].value = 'S/.'
OX.cells[05,7].FONT.BOLD=.

...

..

...

...

...

...

ox.cells[L+i,2].value ='&sdia DE &sxmes DEL &sano'
*
OX.activeWorkbook.save
OX.activeWorkbook.CLOSE
RELE OX
lcFile = GETFILE("XLS")
loExcel = CREATEOBJECT("Excel.Application")
loExcel.Workbooks.Open(lcfile)
loExcel.Application.Visible = .T.
RELEASE loExcel

 

 

 

consulto:

1) Porque me sale ese error en office 2007 y no en office 2003 (ver error archivo adjunto)  ?

 

2) Como podria hacer que cuando se genere desde el servidor el archivo excel (office 2007), lo guarde como archvo excel office

    2003, para que cuando la auxiliar contable abra el archivo no tenga problemas ?

 

 

gracias

 

JRCORONA

 

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com

[Ing.Daniel Bojorge]

Te sugiero que ejecutés el programa paso a paso (en la pc donde tenés el problema) y veás qué instrucción se está ejecutando que te de el error y la solución pues sería borrar dicha línea.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Carlos Miguel FARIAS]

VFP no lee el formato de archivo excel de la version 2007, la version 2003 usa la version de excel compatible con anteriores, por eso podes leer sin problemas, el cuidado que tiene que tener el fulano que trabaja con excel 2007 es guardar como excel 2003 (o XP).
Saludos: Miguel

[Yvan GMAIL]

Y si utilizas 

SaveAS?..

 

Yvan Carranza
613-8906

[Ing.Daniel Bojorge]

El error que veo que le da no es por el formato en que sea guardado el archivo, ya que a como se ve en el adjunto, el error da cuando se está creando el archivo.

Por eso le sugerí que ejecute paso a paso el programa y detecte qué línea no la soporta la pc que tienen Office 2007.  En mi caso me sucede pero cuando genero automation con código generado de Office 2007, obviamente hay sentencias nuevas que office 2003 no tiene.  Pero la única forma que tengo de saber donde está fallando es ejecutarlo paso a paso y determinar la línea exacta, si no es gran cosa, pues procedo a eliminar (o comentariar) dicha línea.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Fabricio]

A como dice Yvan, debes utilizar SaveAs, por que Save no funciona en
Excel 2007.

OXl.ActiveWorkBook.SaveAs(iIORDEN)

Suerte

[Juan Rojas C]

Son muy amables, voy a poner en practica sus sugerencias.

 

JRCORONA