guardar archivo con nombre de fecha actual

q tal amigos!!

encontre esta duda en este foro:
(y yo tengo la misma)

Hola a todos
Tengo un documento, una vez introducidos los datos

una macro.
Como quiero conservar el documento original, lo tendría

comando guardar como
y que al nombre original se le añadiera automáticamente

Además lo tengo que guardar en una carpeta diferente de

(siempre seria la misma). También tendría que cerrar el

Si alguien me puede ayudar, se lo agradecería.
y la respuesta fue la siguiente:
pones en cualquier macro algo asi
ActiveWorkbook.SaveAs Filename:="D:\Mis

"nombrearchivo"&now(), _
FileFormat:=xlNormal, Password:="",

ReadOnlyRecommended:=False, CreateBackup:=False
Un saludo. pep



Yo ahorita pego el codigo en la macro
le cambio la unidad D por la C y quito la ruta \datos\
y me marca error de sintexis


Despues pegue el siguiente codigo:
Sub prueba()
'
' prueba Macro
' Macro grabada el 12/08/2003 por rodriguez amador
'

'
ActiveWorkbook.SaveAs Filename:="c:\" & "150302.xls"

FileFormat:=xlNormal, Password:="",

ReadOnlyRecommended:=False, CreateBackup:=False
End Sub



alguien me puede decir.. DONDE ESTA EL ERROR??
no sean malos, y si alguien me puede mandar un archivo

correcta
se los encargaria mucho...

atte. mikelodium
www.mikelodium.com


saludos!!


.

Buenos días Miguel,

Esta puede ser una solución:

'*) Tenias Now() como tipo DateTime dentro de el nombre
que debe ser String
' Si lo convertias CStr(Now()), en todo caso te quedan
carcateres que no permiten los nombres de Windows (/?

etc)
'*) Por eso lo que debes hacer es capturar cada parte de
la fecha por separado como String y luego junatarlos
'*) Para cerrar el archivo utilizas la funcion
ActiveWorkbook.Close SaveChanges:=False
'*) Para cerrar un libro utilizas la funcion
ActiveWindow.Close SaveChanges:=False
' SaveChanges:=False No Guarda Cambios
' SaveChanges:=True Si Guarda Cambios


Sub Guardar()

Dim Ruta, NombreArchivo, Dia, Mes, Año As String

Ruta = "C:\Temp\Temp\"
NombreArchivo = "Archivo"

Dia = Day(Now())
If Len(Dia) = 1 Then
Dia = "0" + Dia
End If
Mes = Month(Now())
If Len(Mes) = 1 Then
Dia = "0" + Mes
End If
Año = Year(Now())

ActiveWorkbook.SaveAs Filename:=Ruta & NombreArchivo
& " " & Dia & "-" & Mes & "-" & Año,
FileFormat:=xlNormal, Password:="",

ReadOnlyRecommended:=False, CreateBackup:=False
'Cerrar el Archivo (Sin Guardar Porque ya lo

con el guaradar como)
ActiveWorkbook.Close SaveChanges:=False
End Sub

Mostrar la cita

q tal amigos!!

encontre esta duda en este foro:
(y yo tengo la misma)

Hola a todos
Tengo un documento, una vez introducidos los datos

quisiera guardarlo con
Mostrar la cita

una macro.
Como quiero conservar el documento original, lo tendría

que hacer con el
Mostrar la cita

comando guardar como
y que al nombre original se le añadiera automáticamente

la fecha actual.
Mostrar la cita

Además lo tengo que guardar en una carpeta diferente de

la que tiene Excel
Mostrar la cita

(siempre seria la misma). También tendría que cerrar el

programa de Excel.
Mostrar la cita

Si alguien me puede ayudar, se lo agradecería.
y la respuesta fue la siguiente:
pones en cualquier macro algo asi
ActiveWorkbook.SaveAs Filename:="D:\Mis

documentos\datos\" &
Mostrar la cita

"nombrearchivo"&now(), _
FileFormat:=xlNormal, Password:="",

WriteResPassword:="", _
Mostrar la cita

ReadOnlyRecommended:=False, CreateBackup:=False
Un saludo. pep



Yo ahorita pego el codigo en la macro
le cambio la unidad D por la C y quito la ruta \datos\
y me marca error de sintexis


Despues pegue el siguiente codigo:
Sub prueba()
'
' prueba Macro
' Macro grabada el 12/08/2003 por rodriguez amador
'

'
ActiveWorkbook.SaveAs Filename:="c:\"

& Now(), _
Mostrar la cita

FileFormat:=xlNormal, Password:="",

WriteResPassword:="", _
Mostrar la cita

ReadOnlyRecommended:=False, CreateBackup:=False
End Sub



alguien me puede decir.. DONDE ESTA EL ERROR??
no sean malos, y si alguien me puede mandar un archivo

anexo con la macro
Mostrar la cita

correcta
se los encargaria mucho...

atte. mikelodium
www.mikelodium.com


saludos!!


.

.