Grabar archivo con nombre y fecha

Xavi Vegas escribió:

Hola masters,
tengo un archivo modelo que se llama STOCK y quiero hacer una macro que
grabe el archivo con el nombre "STOCK 12 11 06.xls", siendo 12 11 06 la fecha
que sale en la celda a1, que saco con la función hoy().
¿Es posible hacerlo?
Muchas gracias!
Xavier

Hola Xavier :-)

Este codigo te Guardara archivo STOCK con la fecha del dia en el que
estes, y te lo guardara en la misma ruta de donde ejecutes la macro:

Sub Guardar_File_Fecha_Hoy()



Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "STOCK_" & Format(Date, "dd-mm-yyyy")


End Sub

Nos comentas ok? :-)



¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Tux,
va perfecto! Monstruo!
Pero quería ir un poco más allá y que la fecha que saliera no fuera
necesariamente la de hoy sino la que hubiera en la celda A1...
¿Cómo se haría?

Gracias, Xavi

"Tux" escribió:

Xavi Vegas escribió:
> Hola masters,
> tengo un archivo modelo que se llama STOCK y quiero hacer una macro que
> grabe el archivo con el nombre "STOCK 12 11 06.xls", siendo 12 11 06 la fecha
> que sale en la celda a1, que saco con la función hoy().
> ¿Es posible hacerlo?
> Muchas gracias!
> Xavier

Hola Xavier :-)

Este codigo te Guardara archivo STOCK con la fecha del dia en el que
estes, y te lo guardara en la misma ruta de donde ejecutes la macro:

Sub Guardar_File_Fecha_Hoy()



Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "STOCK_" & Format(Date, "dd-mm-yyyy")


End Sub

Nos comentas ok? :-)



¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Xavi Vegas escribió:

Tux,
va perfecto! Monstruo!
Pero quería ir un poco más allá y que la fecha que saliera no fuera
necesariamente la de hoy sino la que hubiera en la celda A1...
¿Cómo se haría?

Gracias, Xavi

"Tux" escribió:

Xavi Vegas escribió:

Hola masters,
tengo un archivo modelo que se llama STOCK y quiero hacer una macro que
grabe el archivo con el nombre "STOCK 12 11 06.xls", siendo 12 11 06 la fecha
que sale en la celda a1, que saco con la función hoy().
¿Es posible hacerlo?
Muchas gracias!
Xavier

Hola Xavier :-)

Este codigo te Guardara archivo STOCK con la fecha del dia en el que
estes, y te lo guardara en la misma ruta de donde ejecutes la macro:

Sub Guardar_File_Fecha_Hoy()



Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "STOCK_" & Format(Date, "dd-mm-yyyy")


End Sub

Nos comentas ok? :-)



¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Hola Xavier :-)

Pues para grabar referente a una celda prueba con esto :-)

Sub Guardar_File_Fecha_Hoy()



Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "libro 1_" & Format(Range("A1"))


End Sub


Y si solo quieres guardarlo con la referencia de la celda sin nombre de
libro:

Sub Guardar_File_Fecha_Hoy()



Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & Format(Range("A1"))


End Sub


Te lo guardara referente a la celda A1 de tu hoja activa y si en esa
celda tienes cualquiera de los caracteres siguientes <>?[]:|* te dara
error logicamente puesto que no se pueden guardar archivos que contengan
esos caracteres :-)

Nos comentas ok? :-)





¡Un SAludo!:-)

www.fermu.com
www.zorval.es

quizas algo asi:

Sub Guardar_File_Fecha_Hoy()
Dim strArchivo As String
With ThisWorkbook
strArchivo = Replace(.FullName, ".xls", " ") & _
Format(Date, "yyyy-mm-dd") & ".xls"
.SaveAs strArchivo
End With
End Sub



"Nanusu" wrote in message
news:

Buenísimo!

Solo un pequeño tema, no sé si es posible, ¿se podría mantener el nombre
actual del libro de excel y solamente añadirle la fecha?

Sa

"Tux" escribió:

Xavi Vegas escribió:
> Tux,
> va perfecto! Monstruo!
> Pero quería ir un poco más allá y que la fecha que saliera no fuera
> necesariamente la de hoy sino la que hubiera en la celda A1...
> ¿Cómo se haría?
>
> Gracias, Xavi
>
> "Tux" escribió:
>
>> Xavi Vegas escribió:
>>> Hola masters,
>>> tengo un archivo modelo que se llama STOCK y quiero hacer una macro
>>> que
>>> grabe el archivo con el nombre "STOCK 12 11 06.xls", siendo 12 11 06
>>> la fecha
>>> que sale en la celda a1, que saco con la función hoy().
>>> ¿Es posible hacerlo?
>>> Muchas gracias!
>>> Xavier
>> Hola Xavier :-)
>>
>> Este codigo te Guardara archivo STOCK con la fecha del dia en el que
>> estes, y te lo guardara en la misma ruta de donde ejecutes la macro:
>>
>> Sub Guardar_File_Fecha_Hoy()
>>
>>
>>
>> Dim RutArchivo
>> RutArchivo = ThisWorkbook.Path & "\"
>>
>> ActiveWorkbook.SaveAs Filename:= _
>> RutArchivo & "STOCK_" & Format(Date, "dd-mm-yyyy")
>>
>>
>> End Sub
>>
>> Nos comentas ok? :-)
>>
>>
>>
>> ¡Un SAludo!:-)
>>
>> www.fermu.com
>> www.zorval.es
>>

Hola Xavier :-)

Pues para grabar referente a una celda prueba con esto :-)

Sub Guardar_File_Fecha_Hoy()



Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & "libro 1_" & Format(Range("A1"))


End Sub


Y si solo quieres guardarlo con la referencia de la celda sin nombre de
libro:

Sub Guardar_File_Fecha_Hoy()



Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
RutArchivo & Format(Range("A1"))


End Sub


Te lo guardara referente a la celda A1 de tu hoja activa y si en esa
celda tienes cualquiera de los caracteres siguientes <>?[]:|* te dara
error logicamente puesto que no se pueden guardar archivos que contengan
esos caracteres :-)

Nos comentas ok? :-)





¡Un SAludo!:-)

www.fermu.com
www.zorval.es