Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

guardar archivo con nombre de fecha actual

13/08/2003 - 05:01 por Miguel Angel | Informe spam
Ayuda Hacer una pregunta
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
una macro.
Como quiero conservar el documento original, lo tendría que hacer con el
comando guardar como
y que al nombre original se le añadiera automáticamente la fecha actual.
Además lo tengo que guardar en una carpeta diferente de la que tiene Excel
(siempre seria la misma). También tendría que cerrar el programa de Excel.
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\" &
"nombrearchivo"&now(), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
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" & Now(), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
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
correcta
se los encargaria mucho...

atte. mikelodium
www.mikelodium.com
miguel@mikelodium.com

saludos!!
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Camilo Báthory
13/08/2003 - 13:50 | Informe spam
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:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False
'Cerrar el Archivo (Sin Guardar Porque ya lo guaradamos
con el guaradar como)
ActiveWorkbook.Close SaveChanges:=False
End Sub

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
una macro.
Como quiero conservar el documento original, lo tendría


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


la fecha actual.
Además lo tengo que guardar en una carpeta diferente de


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


programa de Excel.
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\" &
"nombrearchivo"&now(), _
FileFormat:=xlNormal, Password:="",


WriteResPassword:="", _
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"


& Now(), _
FileFormat:=xlNormal, Password:="",


WriteResPassword:="", _
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
correcta
se los encargaria mucho...

atte. mikelodium
www.mikelodium.com


saludos!!


.

Preguntas similares

 

Busqueda sugerida :