UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenas tarde
Tengo el excel 2003.
Necesitaría que al guardar el libro quedara así:

Libro1 Seguridad 13-10-2015 5.10.20 PM

La macro que tengo, esta grabada con la grabadora porque al tener excel 2003 tego que grabarla, guardar como, y es :

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
    ' Copia de Seguridad EN DISCO J
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
    Application.DisplayAlerts = False                       ' No preguntar si se guarda
    ChDir "J:\Factura2\Factura Seguridad"
    ActiveWorkbook.SaveAs Filename:="J:\Factura2\Factura Seguridad\Libro1 Seguridad.xlsm", _
        FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended _
        :=False, CreateBackup:=False

Un saludo
Archivos
Libro1.zip
(15 KB)

adolfo castro


Hola buenas tardes, prueba lo siguiente, yo no lo he probado pero lo tengo en un archivo de copia


‘Libro1 Seguridad 13-10-2015 5.10.20 PM

dia = Day(Now)

mes = Month(Now)

año = Year(Now)
nombre = "LIBRO1 SEGURIDAD" & dia & "_" & mes & "_" & año & “ _“  & Format(Now, "hh.mm.ss")

' No preguntar si se guardar
ChDir "J:\Factura2\Factura Seguridad"

ActiveWorkbook.SaveAs Filename:="J:\Factura2\Factura Seguridad\” & NOMBRE & “.xlsm", _
        FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended _
        :=False, CreateBackup:=False

Invitado


Invitado
Me da error
Al escribirlo sale en rojo
Un saludo

adolfo castro


Perdona , tenia la macro en word y al pasártela las comillas no son iguales, la he probado y en excel 2003 funciona, cambia el directorio raíz c por J

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 13/10/2015 por luisherrerocasares
'‘Libro1 Seguridad 13-10-2015 5.10.20 PM

dia = Day(Now)

mes = Month(Now)

año = Year(Now)
NOMBRE = "LIBRO1 SEGURIDAD" & dia & "_" & mes & "_" & año & " _" & Format(Now, "hh.mm.ss")

' No preguntar si se guardar
 ChDir "c:\Factura2\Factura Seguridad"
ActiveWorkbook.SaveAs Filename:="c:\Factura2\Factura Seguridad\" & NOMBRE & ".xlsm", _
         FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended _
         :=False, CreateBackup:=False



'
    ChDir "c:\Factura2\Factura Seguridad"
    ActiveWorkbook.SaveAs Filename:="c:\Factura2\Factura Seguridad\Libro1.xlsm", _
        FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended _
        :=False, CreateBackup:=False
End Sub

Igtelo


Hola Luis / Adolfo.

Adjunto opción, en módulo 2 comentarios.
También ve éste tema, es similar a tu pregunta y te puede servir.

http://www.universoexcelforo.com/t860-agregar-fecha-al-guardar-archivo#4710

Saludos
Ignacio Téllez
Archivos
Luis-Guardar archivo.xls
No tienes los permisos para descargar los archivos.
(61 KB)

Invitado


Invitado
Gracias a los dos me lo habéis solucionado
Un saludo fuerte

Igtelo


Hola de nuevo.

Aunque ya está resuelto, subo otra opción con formato de AM/PM.
Me dan mucha guerra esos formatos, pero si quedó.

Saludos
Ignacio Téllez
Archivos
Igtelo-Luis-Guardar archivo2.xls
No tienes los permisos para descargar los archivos.
(63 KB)

Invitado


Invitado
Muy bueno 
Gracias

Igtelo


Hola otra vez.

No quedé conforme y como a mi me cuesta mucho trabajo lo de los formatos, le analicé otro poco y no es necesario complicarse la vida como en el archivo2 jeje.

Aquí va.

Saludos
Ignacio Téllez
Archivos
Luis-Guardar archivo3.xls
No tienes los permisos para descargar los archivos.
(63 KB)

Invitado


Invitado
Muchas gracias Ignacio
¿Como haces para que te salgan los Archivos de esa forma?
Un saludo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.