error en excel

[marcelo .]

hola :

al querer guardar una exportacion a excel 2007 desde v fox9 , me da este error:

' no se puede obtener la propiedad save de la clase workbook office 2007'
alguien me podra ayudar ? gracias

[Irlandes 1960]

Seria más fácil si incluyeras el código que estas utilizando.

[marcelo .]

gracias por responder .

este es el codigo del evento click del boton exportacion :

 

 

parameter

tlMuestro

sele

curpvficha

lcaux =

alltr(gcDirexcel) +;

ThisForm.Pgfgral1.Page1.Cntprove1.pvcodsuc+;

alltr(str(ThisForm.Pgfgral1.Page1.Cntprove1.pvficha))+'.XLS'

lcPlanilla =

putfile('Confirme el Nombre',lcaux, 'xls')

if empty

(lcPlanilla)

     return

endif

wait wind nowait

'Exportando... '

export to

(lcPlanilla) XLS fields fecha, debe, haber, saldo, operacion, comentario

go top

wait wind nowait

'Agregando Títulos... '

oleapp =

createobject('excel.application')

with

oleapp

    .Workbooks.

open( lcPlanilla )

    .

columns("B:D").select

    .

selection.NumberFormat = "#,##0.00 $"

    .

rows('1:1').select

    .

selection.font.bold = .t.

    .

Selection.EntireRow.Insert

    .Cells(1,1).

value = ThisForm.Pgfgral1.Page2.LblProve.caption+ ;

               ThisForm.Pgfgral1.Page2.LblSaldoActual.caption

    .Cells(1,1).

font.bold = .t.

    .

range('A1').select

     .ActiveWorkbook.

save

   if

tlMuestro

         .

Visible = .t.

   else

        .ActiveWorkbook.close

   endif

endwith

rele

oleApp

[Yvan.carranza]

Pega tu codigo.. Usa saveas

Saludos.

Yvan Carranza.
C : 949-241-409
M: 945-633-549
Enviado desde Android Mobile


"marcelo ." <ciclo...@gmail.com> escribió:

[Irlandes 1960]

Es virtualmente idéntico al que yo uso, y nunca me ha dado ese error

Por si te sirve, te copio parte del código del evento click de mi botón de excel

oleapp = createobject('excel.application')

with oleapp

.Workbooks.open(lcPlanilla)

.visible = .t.

this.formatos()

this.titulos()

this.posterior()

.ActiveWorkbook.save

rele oleApp

ENDWITH 

[Norberto]

Excel 2007 es la version 12

if val(oExcel.Version) > 11
oWorkbook.SaveAs("C:\temp\miarchivo.xls", 56)
else
oWorkbook.SaveAs("C:\temp\miarchivo.xls")
endif

En Excel 2010 te va a dar error en Workbooks.open porque va a buscar
un .xlsx
Yo abandone los export to XLS por esta razon y por la limitacion de 65
K filas.
Hago un .WorkBooks.Add y copio todas las celdas. Y con esto logro
esquivar el problema de
versiones. Y ademas puedo exportar hasta 1 M filas