Macro para guardar archivo Excel sin cambiar nombre del original
A ver quién me puede apoyar con una macro que me permita guardar un archivo del mismo libro con otro nombre pero que al realizar el guardado no me afecte el nombre del archivo original.
Esta es la macro que estoy usando.
Sub Guardar_Excel()
Const CTE_CARPETA = "C:\ Cotizaciones 2015\11 Cotizaciones Noviembre"
If MsgBox("¿GUARDAR COTIZACION?", vbQuestion + vbYesNo) = vbYes Then
ActiveWorkbook.SaveAs CTE_CARPETA & "cotizacion-" & Format(Now, "dd-mm-hh.mm.ss") & ".XLSM"
MsgBox "Se ha guardado correctamente.", vbQuestion + vbYesNo + vbYesNo, "cotizacion"
End If
End Sub
2 Respuestas
En mi caso uso el nombre de la celda A1 y que se guardarde en la misma calpeta donde se abra el libro
Sub archivo_excel()
nbre = Range("a1") & " " & Format(Now, "hh mm ss")
ruta = ThisWorkbook.Path
If MsgBox("¿desea guardar el archivo?", vbQuestion + vbYesNo) = vbYes Then
ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xls"
MsgBox "Se ha guardado correctamente."
End If
End Sub
H o l a:
Te anexo la macro actualizada, revisa que la carpeta esté bien escrita, al final de la carpeta debe esta la diagonal \
La instrucción para guardar una copia es savecopyas
Sub Guardar_Excel()
CTE_CARPETA = "C:\ Cotizaciones 2015\11 Cotizaciones Noviembre\"
If MsgBox("¿GUARDAR COTIZACIÓN?", vbQuestion + vbYesNo) = vbYes Then
ActiveWorkbook.SaveCopyAs CTE_CARPETA & "cotizacion-" & Format(Now, "dd-mm-hh.mm.ss") & ".xlsm"
MsgBox "Se ha guardado correctamente.", vbInformation, "COTIZACIÓN"
End If
End Sub