Dar nombre archivo según valor celda al guardar
Publicado por Pablo (42 intervenciones) el 12/03/2011 23:43:46
Tengo un problema similar al de Jonathan, he creado una macro que al ejecutarla me guarda el archivo incluyendo el valor de una celda. Lo que quiero es que se ejecute de forma transparente para el usuario, es decir:
Este abre una plantilla, la rellena y al guardarla le de el nombre que he elegido y almacene el archivo resultante en una carpeta. Para ello la macro es:
Private Sub Macro1()
Dim RutaArchvo As String
Dim NombreArchivo As String
RutaArchivo = "C:\Documents and Settings\Usuario\Escritorio\Notas de Abono" & "\"
NombreArchivo = Range("'HojaDeAbono1'!S6").Value
ActiveWorkbook.SaveAs Filename:=RutaArchivo & "NotaDeGastos - " & NombreArchivo & ".xls" _
, FileFormat:=xlNormal
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub
El valor de la celda se calcula internamente en función de la fecha y de la persona que emite la nota.
Y como digo funciona, pero no quiero que el usuario tenga que pulsar un botón al efecto. Lo que quiero evitar es que cada uno guarde como quiera, archive como quiera, etc.
Este abre una plantilla, la rellena y al guardarla le de el nombre que he elegido y almacene el archivo resultante en una carpeta. Para ello la macro es:
Private Sub Macro1()
Dim RutaArchvo As String
Dim NombreArchivo As String
RutaArchivo = "C:\Documents and Settings\Usuario\Escritorio\Notas de Abono" & "\"
NombreArchivo = Range("'HojaDeAbono1'!S6").Value
ActiveWorkbook.SaveAs Filename:=RutaArchivo & "NotaDeGastos - " & NombreArchivo & ".xls" _
, FileFormat:=xlNormal
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub
El valor de la celda se calcula internamente en función de la fecha y de la persona que emite la nota.
Y como digo funciona, pero no quiero que el usuario tenga que pulsar un botón al efecto. Lo que quiero evitar es que cada uno guarde como quiera, archive como quiera, etc.
Valora esta pregunta
0