macro para guardar excel con fecha -hora, ademas de archivo .cvs

[axel07_89]

Gracias! por el interes... bien con respecto a las fechas tienen que ser la que tenga el sistema al momento de guardar el archivo, lla tengo lo siguiente, me lo volé de un foro y le hice algunas modificaciones simples

Sub guardando()
nbre = Format(Now, "dd-mm-yy hh.mm.ss")
ruta = ActiveWorkbook.Path
n_arch = ActiveWorkbook.Name
n_hoja = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:=ruta & "\" & n_hoja & nbre & ".csv", FileFormat:=xlCSV
ActiveSheet.SaveAs ruta & "\" & n_arch & nbre & ".xlsm"
End Sub

+ ó - esta haciendo lo que quiero.. solo que no esta remplazando el archivo existente ¿qué función usaría para remplazar el archivo existente en vez de .SaveAs para el libro? (Si lo dejara asi cada vez que guarde el archivo se concatena una cadena del nombre media fea je')

Lo de la copia de hoja activa y el formato del archivo lla esta solucionado con el codigo anterior.

A otra cosa si el modulo se ejecuta al momento de dar boton guardar.. estaria de 10 :)

Una Hoja de excel contiene:
columnaA columnaB columna C
2011-02-03 texto 152