por Muchas veces, cuando realizamos un trabajo en Excel, un pequeño programa o simplemente un informe, a veces resulta muy útil tener una macro que nos ayude a guardar un archivo concreto.
La macro que os propongo funciona de la siguiente forma, imaginad que tenéis una hoja Excel «Pedido» y queréis exportarla pero creando una nueva hoja idéntica sin modificar la anterior.
Esta macro crea una nueva hoja, invoca el cuadro de diálogo de «Guardar Como» de Excel y permite guardar una copia de la hoja a exportar en el lugar que consideréis más oportuno y además la podéis renombrar. Cuando finaliza el guardado, cierra la nueva hoja y no solicita el mensaje de «Desea guardar los cambios efectuados en «Pedido»?.
Sub Exportar_Pedido()
Sheets("Pedido").Select
Sheets("Pedido").Copy
Application.Dialogs(xlDialogSaveAs).Show
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub
Si en la propia página que vais a hacer la copia y el guardado, tenéis un botón donde estáis aplicando la macro, tendréis que hacer que cuando se ejecute, además de todo lo anterior, elimine el botón de la macro que se ha copiado en la hoja nueva. Para ello basta con que incorporéis la siguiente línea en el código:
ActiveSheet.Shapes("BUTTON 1").Select
Selection.Delete
Es decir, quedaría de la siguiente forma:
Sub Exportar_Pedido()
Sheets("Pedido").Select
Sheets("Pedido").Copy
ActiveSheet.Shapes("BUTTON 1").Select
Selection.Delete
Application.Dialogs(xlDialogSaveAs).Show
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub
Descarga el archivo pulsando en: GUARDAR COMO
Saludos
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
