Як використовувати функцію Зберегти як для автоматичного перезапису наявного файлу в 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 = True4 Натисніть кнопку інший + Q клавіші для виходу з Microsoft Visual Basic для додатків вікно. І вимкніть Режим дизайну під Розробник Вкладка.
5. Натисніть кнопку команди, а потім a Зберегти як з'явиться діалогове вікно, виберіть папку для збереження цієї книги, а потім клацніть на зберегти кнопки.
Якщо в цільовій папці є книга з однаковим іменем, вона буде автоматично перезаписана поточною книгою без запиту.
Статті по темі:
- Як зберегти аркуш як файл PDF та надіслати його електронною поштою як вкладення через Outlook?
- Як зберегти ім'я файлу Excel із позначкою часу?
- Як зберегти, експортувати декілька / усіх аркушів до окремих файлів CSV або тексту в Excel?
- Як вимкнути або заборонити параметри Зберегти та Зберегти як в Excel?
- Як вимкнути збереження книги, але дозволити збереження лише як у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
