¿Cómo usar la función Guardar como para sobrescribir automáticamente un archivo existente en Excel?
Al guardar un libro de Excel en una nueva carpeta, aparecerá un cuadro de aviso como se muestra en la siguiente captura de pantalla si existe un libro con el mismo nombre y se ubica en la carpeta. ¿Cómo sobrescribir automáticamente el archivo existente sin un mensaje de advertencia? El método de este artículo puede ayudarte.
Guardar como función para sobrescribir automáticamente el archivo existente con código VBA
Guardar como función para sobrescribir automáticamente el archivo existente con código VBA
Si desea guardar un libro de trabajo con un nombre nuevo y sobrescribir automáticamente el archivo existente en Excel. Haz lo siguiente.
1. En primer lugar, cree un botón de comando para activar la función Guardar como en su hoja de trabajo. Por favor haz click Developer > recuadro > Botón de comando (control Active X). Ver captura de pantalla:
2. Dibuje un botón de comando en su hoja de trabajo. Luego haga clic derecho y seleccione Ver código desde el menú contextual.
3. En el Microsoft Visual Basic para aplicaciones ventana, copie el siguiente código VBA y péguelo entre los Sub privado y End Sub líneas en el Código ventana.
Código VBA: guardar como función para sobrescribir automáticamente el archivo existente
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True
4. presione el otro + Q llaves para salir del Microsoft Visual Basic para aplicaciones ventana. Y apaga el Modo de diseño bajo el Developer .
5. Haga clic en el botón de comando y luego en Guardar como aparece el cuadro de diálogo, seleccione una carpeta para guardar este libro y luego haga clic en Guardar del botón.
Si existe un libro con el mismo nombre en la carpeta de destino, se sobrescribirá automáticamente con el libro actual directamente sin preguntar.
Artículos relacionados:
- ¿Cómo guardar una hoja de trabajo como archivo PDF y enviarla por correo electrónico como archivo adjunto a través de Outlook?
- ¿Cómo guardar un nombre de archivo de Excel con marca de tiempo?
- ¿Cómo guardar, exportar varias / todas las hojas a archivos csv o de texto separados en Excel?
- ¿Cómo deshabilitar o no permitir las opciones Guardar y Guardar como en Excel?
- ¿Cómo deshabilitar el guardado del libro de trabajo pero solo permitir guardar como en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!