¿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 diálogo como se muestra en la captura de pantalla a continuación si ya existe un libro con el mismo nombre en la carpeta. ¿Cómo sobrescribir automáticamente el archivo existente sin un mensaje de advertencia? El método en este artículo puede ayudarte.

Función Guardar como para sobrescribir automáticamente un archivo existente con código VBA

Función Guardar como para sobrescribir automáticamente un archivo existente con código VBA

Si deseas guardar un libro con un nuevo nombre y sobrescribir automáticamente el archivo existente en Excel, sigue los pasos a continuación.

1. Primero, crea un Botón de Comando para activar la función Guardar como en tu hoja de cálculo. Haz clic en Desarrollador > Insertar > Botón de Comando (Control Active X). Ver captura de pantalla:

2. Dibuja un Botón de Comando en tu hoja de cálculo. Luego, haz clic derecho sobre él y selecciona Ver Código en el menú contextual.

3. En la ventana Microsoft Visual Basic para Aplicaciones, copia el siguiente código VBA y pégalo entre las líneas Private Sub y End Sub en la ventana de Código.

Código VBA: Función Guardar como para sobrescribir automáticamente un 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. Presiona las teclas Alt + Q para salir de la ventana Microsoft Visual Basic para Aplicaciones. Y desactiva el Modo Diseño en la pestaña Desarrollador.

5. Haz clic en el Botón de Comando, luego aparecerá un cuadro de diálogo Guardar como; selecciona una carpeta para guardar este libro y haz clic en el botón Guardar.

Si existe un libro con el mismo nombre en la carpeta de destino, se sobrescribirá automáticamente con el libro actual sin ningún mensaje de confirmación.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo guardar una hoja de trabajo como archivo PDF y enviarla como adjunto a través de Outlook?
• ¿Cómo guardar un nombre de archivo de Excel con marca de tiempo?
• ¿Cómo guardar o exportar múltiples/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 la opción Guardar libro pero solo permitir Guardar como en Excel?