Как использовать функцию «Сохранить как» для автоматической перезаписи существующего файла в Excel?

При сохранении книги Excel в новую папку вы получите окно подсказки, как показано на скриншоте ниже, если книга с таким же именем существует и находится в папке. Как автоматически перезаписать существующий файл без предупреждения? Метод, описанный в этой статье, может вам помочь.

Функция Сохранить как для автоматической перезаписи существующего файла кодом VBA

Функция Сохранить как для автоматической перезаписи существующего файла кодом VBA

Если вы хотите сохранить книгу под новым именем и автоматически перезаписать существующий файл в Excel. Пожалуйста, сделайте следующее.

1. Сначала создайте командную кнопку для запуска функции «Сохранить как» на вашем листе. Пожалуйста, нажмите Застройщик > Вставить > Командная кнопка (активный элемент управления X). Смотрите скриншот:

2. Нарисуйте командную кнопку на своем листе. Затем щелкните его правой кнопкой мыши и выберите Просмотреть код из контекстного меню.

3. в Microsoft Visual Basic для приложений окна, скопируйте приведенный ниже код VBA и вставьте между Частный суб , так и в End Sub линий в Code окно.

Код VBA: функция "Сохранить как" для автоматической перезаписи существующего файла

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. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно. И выключите Режим проектирования под Застройщик меню.

5. Нажмите кнопку Command, затем Сохранить как появится диалоговое окно, выберите папку для сохранения этой книги и нажмите кнопку Сохранено .

Если в целевой папке существует книга с таким же именем, она будет автоматически перезаписана текущей книгой без запроса.

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме:

• Как сохранить рабочий лист в виде файла PDF и отправить его по электронной почте в виде вложения через Outlook?
• Как сохранить имя файла Excel с отметкой времени?
• Как сохранить, экспортировать несколько / все листы в отдельные CSV или текстовые файлы в Excel?
• Как отключить или запретить параметры «Сохранить и сохранить как» в Excel?
• Как отключить сохранение книги, но разрешить сохранение только как в Excel?