Как использовать функцию «Сохранить как» для автоматической перезаписи существующего файла в 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 = True4. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно. И выключите Режим проектирования под Застройщик меню.
5. Нажмите кнопку Command, затем Сохранить как появится диалоговое окно, выберите папку для сохранения этой книги и нажмите кнопку Сохранить .
Если в целевой папке существует книга с таким же именем, она будет автоматически перезаписана текущей книгой без запроса.
Статьи по теме:
- Как сохранить рабочий лист в виде файла PDF и отправить его по электронной почте в виде вложения через Outlook?
- Как сохранить имя файла Excel с отметкой времени?
- Как сохранить, экспортировать несколько / все листы в отдельные CSV или текстовые файлы в Excel?
- Как отключить или запретить параметры «Сохранить и сохранить как» в Excel?
- Как отключить сохранение книги, но разрешить сохранение только как в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
