Problema SaveAS Automatizacion Excel

1,365 views
Skip to first unread message

Julio Cesar Vente Ruiz

unread,
Mar 7, 2012, 5:45:36 PM3/7/12
to Comunidad de Visual Foxpro en Español
Saludos comunidad, tengo el siguiente problema...

En una rutina envio datos a excel y luego necesito grabar los datos,
pero el usuario puede elegir previamente como se llamar el archivo lo
cual capturo con VARCHIVO = PUTFILE("Archivo MS Excel","","xls").

Resulta que si el usuario selecciona un archivo que ya existe el
SaveAs de Excel pregunta que si desea remplazarlo, a lo cual si el
usuario seleccona que si, no hay problema se remplaza el archivo,
pero si selecciona que NO, me genera un error
La instruccion del SaveAs que uso es la siguiente:
Excel1.Application.ActiveWorkbook.SaveAs(VARCHIVO, -4143, "",
"", .F., .F.)

Y el error que me genera si el usuario decide no remplazar el archivo
es :
Código de excepción OLE IDispatch 0 de Microsoft Excel: No se puede
obtener la propiedad SaveAs de la clase Workbook..

De antemano muchas gracias

Miguel Canchas

unread,
Mar 7, 2012, 5:52:52 PM3/7/12
to publice...@googlegroups.com
oFile = "C:\temporales\" + ALLTRIM(cVendedores.vde_nomvde) + DTOS(DATE())+STRTRAN(TIME(), ":", "") + ALLTRIM(STR(SECONDS(),6)) + ".xlsx"
oExcel.ActiveWorkbook.SaveAs(ofile, 51)

-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Julio Cesar Vente Ruiz
Enviado el: miércoles, 07 de marzo de 2012 05:46 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Problema SaveAS Automatizacion Excel

Luis Maria Guayan

unread,
Mar 7, 2012, 5:55:16 PM3/7/12
to publice...@googlegroups.com
Tu debes tener una condición que si existe y contesta SI, ejecutas SaveAs, si existe y contesta NO, no ejecutas el SaveAs

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

Julio Cesar Vente Ruiz

unread,
Mar 7, 2012, 5:56:13 PM3/7/12
to publice...@googlegroups.com
Gracias Miguel por tu respuesta, pero lo que deseo es poder controlar el error, veo que lo que propones es nombrar el archivo adicionandole la fecha y la hora, pero realmente lo que deseo es nombrarlo como el usuario elija.

Saludos..
--


Julio Cesar Vente Ruiz

Julio Cesar Vente Ruiz

unread,
Mar 7, 2012, 6:01:13 PM3/7/12
to publice...@googlegroups.com
Gracias Luis Maria,  si creo que eso es lo que voy hacer con el mismo PUTFILE(), ya que este valida si existe el archivo pregunta si desea remplazarlo y selecciono que no me permite proponer un nuevo nombre a lo cual si le doy cancelar no deberia hacer el SaveAs..

Muchas gracias nuevamente Luis esa pensaria es la mejor opción para no lidiar con el SaveAs..

Saludos..
Reply all
Reply to author
Forward
0 new messages