Ayuda para guardar

20/10/2006 - 19:02 por fernanda.peruana | Informe spam
Hola a Todos, tengo una plantilla de excel *.XLT, todos los días tengo

que modificar el número de venta que se realiza, para guardar los
cambios utilizo el siguiente código:

Sub Guadar()
ruta = "c:\Documents and Settings\fernanda\Escritorio\ventas.xlt"
ActiveWorkbook.SaveAs Filename:= _
ruta, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Quit
End Sub


El problema, es que el archivo Ventas cambia de ruta muy seguido y por
lo tanto el código anterior ya no me funciona, ya que la ruta NO ES
FIJA.


Cómo modifico el código, de tal manera que no importe en que ruta del

disco duro o de otras computadoras se guarde la PLANTILLA *.XLT, pero
que me permita guardarlo, como si fuera un archivo normal *.XLS


Espero me puedan ayudar
 

Leer las respuestas

#1 Héctor Miguel
20/10/2006 - 21:42 | Informe spam
hola, fernanda !

... tengo una plantilla... *.XLT, todos los días tengo que modificar el numero de venta
... el archivo Ventas cambia de ruta muy seguido y... el codigo... no me funciona, ya que la ruta NO ES FIJA.
Como modifico el codigo, de tal manera que no importe en que ruta del disco duro o de otras computadoras
se guarde la PLANTILLA *.XLT, pero que me permita guardarlo, como si fuera un archivo normal *.XLS



1) serviria si comentas de 'que' depende que la ruta sea 'variable' -?-
del sistema operativo ?... del usuario 'en turno' ?... cambios en unidades de red ? ... ???

2) podrias aprovechar la caracteristica de las plantillas [.XLT] que es -precisamente- 'crear' archivos 'nuevos'...
-> basados en los formatos y caracteristicas establecidos en la plantilla 'de base' ;)
-> lo que te permitiria tener un[a especie de] 'Libro1' con el nombre de tu plantilla: -> 'Plantilla1' => en limpio y SIN guardar ;)

comentas algun detalle mas... 'significativo/concreto/...' ?
saludos,
hector.

__ el codigo expuesto __
para guardar los cambios utilizo el siguiente codigo:


Sub Guadar()
ruta = "c:\Documents and Settings\fernanda\Escritorio\ventas.xlt"
ActiveWorkbook.SaveAs Filename:= _
ruta, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.Quit
End Sub

Preguntas similares