Anónimo
Necesito crear un macro "guardar como"
Ya tengo listo un programa en excel de cotización, sin embargo, quisiera que al ejecutar un botón denominado "Salir"; cree una copia del archivo solicitando nombre del archivo (a ser seleccionado por el usuario) y ruta (deberá ser seleccionado por el usuario)
Gracias de antemano
Gracias de antemano
1 Respuesta
Respuesta de calvuch
1
Prueba esta macro
Sub guardar_como()
'
Dim ruta As String
ruta = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Libro de Excel,*.xls")
If ruta = False Then Exit Sub
If Len(ruta) = 0 Then Exit Sub
ActiveWorkbook.SaveAs Filename:=ruta, FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
MsgBox "EL archivo se guardo correctamente"
ActiveWorkbook.Close
End Sub
Bye
Sub guardar_como()
'
Dim ruta As String
ruta = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Libro de Excel,*.xls")
If ruta = False Then Exit Sub
If Len(ruta) = 0 Then Exit Sub
ActiveWorkbook.SaveAs Filename:=ruta, FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
MsgBox "EL archivo se guardo correctamente"
ActiveWorkbook.Close
End Sub
Bye