guardar como.....macro

02/02/2008 - 10:51 por ss | Informe spam
hola, he puesto un botón en la barra de herramientas de una plantilla
principal que está en blanco para que cuando la rellene el cliente al pulsar
el botón Guarde el fichero con un nombre que el mismo le pone en un
inputbox,en una carpeta correspondiente y así que no se preocupe de buscarla
cada vez, el problema es que al guardar como. las macros de la
plantilla principal quedan enlazadas al fichero guardado como..y
cada vez que pulsa sobre el botón se abre el anterior guardado como

El parche que he puesto es que oculte el primer fichero guardado como o
meter las macros en el personal.xls, pero me parece una solución cutre, no
entiendo porque al guardar como se enlazan dichos botones al fichero
guardado.

NOMFACTURA = InputBox("ESCRBE EL NOMBRE DE LA FACTURA")
NOMFACTURA = "C:\Users\Propietario\Desktop\facturas\" + NOMFACTURA + ".XLS"

ActiveWorkbook.SaveAs Filename:= _
NOMFACTURA, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close




Saludos, si alguien tiene alguna sugerencia.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
02/02/2008 - 23:31 | Informe spam
hola, 'anonimo/a' !

... no entiendo porque al guardar como se enlazan dichos botones al fichero guardado...



1) considera que los vinculos a cualquier archivo son "ligas" para identificar "donde esta cada cosa"
esto incluye la ubicacion donde se buscan macros asignadas a objetos (incluso en las barras de herramientas)

2) si llegas a "mover" (por sistema operativo) la ubicacion de un archivo estando cerrada la aplicacion (como consecuencia)
cuando trates de ejecutar cualquier macro que ESTABA vinculada a la ubicacion original... no seran encontradas :-((

3) en contra-parte, cuando haces un "guardar como..." es lo mismo que "avisarle" a todos los objetos vinculados
que las macros que buscan (ahora) se cambian de lugar a donde quede el "guardado como..." (incluso barras de herramientas)

4) (creo que mas bien) la cuestion seria si (realmente) necesitas que la copia (guardada como...) de tu factura lleve las macros
es decir, hacer el "guardar como..." para todo el libro (lo que incluye obviamente modulos de codigo, macros, objetos, etc.)
o es suficiente con hacer una copia (libro nuevo) de la hoja/factura... eliminar botones con macro... y hacer el "guardar como..."

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __
... he puesto un boton en la barra de herramientas de una plantilla principal que esta en blanco
para que cuando la rellene el cliente al pulsar el boton Guarde el fichero
con un nombre que el mismo le pone en un inputbox, en una carpeta correspondiente
y asi que no se preocupe de buscarla cada vez
el problema es que al guardar como... las macros de la plantilla principal quedan enlazadas al fichero guardado como
y cada vez que pulsa sobre el boton se abre el anterior guardado como
El parche que he puesto es que oculte el primer fichero guardado como o meter las macros en el personal.xls
pero me parece una solucion cutre, no entiendo porque al guardar como se enlazan dichos botones al fichero guardado.

NOMFACTURA = InputBox("ESCRBE EL NOMBRE DE LA FACTURA")
NOMFACTURA = "C:\Users\Propietario\Desktop\facturas\" + NOMFACTURA + ".XLS"
ActiveWorkbook.SaveAs Filename:= _
NOMFACTURA, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Respuesta Responder a este mensaje
#2 ss
03/02/2008 - 15:23 | Informe spam
Hola Héctor y gracias por tus aclaraciones..me gustaría
comentarte que , siempre pasa para la primera vez que guardo
como...pero para las restantes no, me parece algo muy extraño,
quizás lo arregle con una macro que tan solo copie la hoja y deje lo
restante intacto.

Saludos y gracias

"Héctor Miguel" escribió en el mensaje
news:OI8%
hola, 'anonimo/a' !

... no entiendo porque al guardar como se enlazan dichos botones al
fichero guardado...



1) considera que los vinculos a cualquier archivo son "ligas" para
identificar "donde esta cada cosa"
esto incluye la ubicacion donde se buscan macros asignadas a objetos
(incluso en las barras de herramientas)

2) si llegas a "mover" (por sistema operativo) la ubicacion de un archivo
estando cerrada la aplicacion (como consecuencia)
cuando trates de ejecutar cualquier macro que ESTABA vinculada a la
ubicacion original... no seran encontradas :-((

3) en contra-parte, cuando haces un "guardar como..." es lo mismo que
"avisarle" a todos los objetos vinculados
que las macros que buscan (ahora) se cambian de lugar a donde quede el
"guardado como..." (incluso barras de herramientas)

4) (creo que mas bien) la cuestion seria si (realmente) necesitas que la
copia (guardada como...) de tu factura lleve las macros
es decir, hacer el "guardar como..." para todo el libro (lo que incluye
obviamente modulos de codigo, macros, objetos, etc.)
o es suficiente con hacer una copia (libro nuevo) de la hoja/factura...
eliminar botones con macro... y hacer el "guardar como..."

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __
... he puesto un boton en la barra de herramientas de una plantilla
principal que esta en blanco
para que cuando la rellene el cliente al pulsar el boton Guarde el
fichero
con un nombre que el mismo le pone en un inputbox, en una carpeta
correspondiente
y asi que no se preocupe de buscarla cada vez
el problema es que al guardar como... las macros de la plantilla
principal quedan enlazadas al fichero guardado como
y cada vez que pulsa sobre el boton se abre el anterior guardado como
El parche que he puesto es que oculte el primer fichero guardado como o
meter las macros en el personal.xls
pero me parece una solucion cutre, no entiendo porque al guardar como se
enlazan dichos botones al fichero guardado.

NOMFACTURA = InputBox("ESCRBE EL NOMBRE DE LA FACTURA")
NOMFACTURA = "C:\Users\Propietario\Desktop\facturas\" + NOMFACTURA +
".XLS"
ActiveWorkbook.SaveAs Filename:= _
NOMFACTURA, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
_
CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida