Как использовать функцию «Сохранить как», чтобы Excel автоматически перезаписывал существующий файл?
При сохранении книги Excel в новую папку появляется диалоговое окно (см. скриншот ниже), если файл с таким именем уже существует. Как автоматически перезаписать существующий файл без предупреждения? Метод, описанный в этой статье, поможет вам решить эту задачу.
Функция «Сохранить как» для автоматической перезаписи существующего файла с помощью кода VBA
Функция «Сохранить как» для автоматической перезаписи существующего файла с помощью кода VBA
Если вы хотите сохранить книгу под именем «Новое имя» и автоматически перезаписать существующий файл в Excel, выполните следующие действия.
1. Сначала создайте кнопку управления для запуска функции «Сохранить как» на листе. Для этого перейдите в раздел Разработчик → Вставить → Кнопка (элемент управления ActiveX). См. скриншот:
2. Нарисуйте кнопку управления на листе, затем щелкните по ней правой кнопкой мыши и выберите в контекстном меню пункт Просмотреть код.
3. В окне Microsoft Visual Basic для приложений скопируйте приведённый ниже код VBA и вставьте его между строками Private Sub и End Sub в окне Код.
Код 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. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений. Затем отключите режим Конструктор на вкладке Разработчик.
5. Нажмите кнопку управления, после чего появится диалоговое окно Сохранить как. Укажите место для сохранения книги и нажмите кнопку Сохранить.
Если в целевой папке уже есть книга с таким же именем, она будет автоматически перезаписана текущей книгой без каких-либо запросов.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
См. также:
- Как сохранить лист в формате PDF и отправить его по электронной почте через Outlook во вложении?
- Как сохранить файл Excel с отметкой времени в имени?
- Как сохранить или экспортировать несколько или все листы в отдельные CSV-файлы или текстовые файлы в Excel?
- Как отключить или запретить использование команд «Сохранить» и «Сохранить как» в Excel?
- Как отключить стандартное сохранение книги, оставив возможность использовать только команду «Сохранить как» в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек