Як використовувати функцію Зберегти як для автоматичного перезапису наявного файлу в Excel?

Зберігаючи книгу Excel у новій папці, ви отримаєте підказку, як показано на знімку екрана нижче, якщо існує книга з тим самим іменем і знаходиться в папці. Як автоматично перезаписати існуючий файл без негайного попереджувального повідомлення? Метод у цій статті може вам допомогти.

Зберегти як функцію для автоматичного перезапису існуючого файлу з кодом VBA

Зберегти як функцію для автоматичного перезапису існуючого файлу з кодом VBA

Якщо ви хочете зберегти книгу з новою назвою та автоматично перезаписати наявний файл у Excel. Будь ласка, виконайте наступне.

1. По-перше, створіть командну кнопку для запуску функції «Зберегти як» на вашому аркуші. Клацніть Розробник > Insert > Кнопка керування (Active X Control). Дивіться знімок екрана:

2. Намалюйте на своєму аркуші командну кнопку. Потім клацніть правою кнопкою миші та виберіть Переглянути код з контекстного меню.

3 В Microsoft Visual Basic для додатків вікно, скопіюйте наведений нижче код VBA та вставте між Приватний суб та 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 = True

4 Натисніть кнопку інший + Q клавіші для виходу з Microsoft Visual Basic для додатків вікно. І вимкніть Режим дизайну під Розробник Вкладка.

5. Натисніть кнопку команди, а потім a Зберегти як з'явиться діалогове вікно, виберіть папку для збереження цієї книги, а потім клацніть на зберегти кнопки.

Якщо в цільовій папці є книга з однаковим іменем, вона буде автоматично перезаписана поточною книгою без запиту.

Розблокуйте Excel Magic за допомогою Kutools AI

• Розумне виконання: Виконуйте операції з комірками, аналізуйте дані та створюйте діаграми — усе це керується простими командами.
• Спеціальні формули: створюйте індивідуальні формули для оптимізації робочих процесів.
• Кодування VBA: Напишіть і реалізуйте код VBA без зусиль.
• Інтерпретація формул: Розумійте складні формули з легкістю.
• Переклад тексту: Подолайте мовні бар’єри у ваших електронних таблицях.

Розширте свої можливості Excel за допомогою інструментів на основі ШІ. Завантажити зараз і відчуйте ефективність, як ніколи раніше!

Статті по темі:

• Як зберегти аркуш як файл PDF та надіслати його електронною поштою як вкладення через Outlook?
• Як зберегти ім'я файлу Excel із позначкою часу?
• Як зберегти, експортувати декілька / усіх аркушів до окремих файлів CSV або тексту в Excel?
• Як вимкнути або заборонити параметри Зберегти та Зберегти як в Excel?
• Як вимкнути збереження книги, але дозволити збереження лише як у Excel?