У цьому підручнику VBA описано, як зберегти файл за допомогою команд Зберегти та Зберегти як у VBA.
Зберегти робочу книгу - VBA
Команда VBA Save зберігає файл Excel так само, як натискання піктограми Save або використання ярлика Save (CTRL + S).
Збережіть задану книгу
Щоб зберегти книгу, зверніться до об’єкта книги та скористайтесь командою Зберегти.
| 1 | Робочі книги ("savefile.xlsm"). Зберегти |
Збережіть активну книгу
Примітка: Це поточна активна книга з кодом VBA, що відрізняється від цієї книги, яка містить робочий код.
Збережіть книгу, де зберігається код
Збережіть усі відкриті книги
Це дозволить прокрутити всі відкриті книги, зберігаючи кожну.
| 12345 | Dim wb як робочий зошитДля кожного веб -сайту в програмі. Робочі книгиwb. ЗберегтиНаступна вб |
Збережіть усі відкриті книги, які не були відкриті ReadOnly
Примітка: відкриття книги в режимі ReadOnly запобігає збереженню файлу.
Щоб зберегти файл, вам потрібно буде зберегти як і зберегти файл з іншою назвою.
| 1234567 | Dim wb як робочий зошитДля кожного веб -сайту в програмі. Робочі книгиЯкщо не wb ReadOnly, тоwb. ЗберегтиЗакінчити, якщоНаступна вб |
Збережіть книгу, визначену змінною
Це збереже книгу, призначену змінній об’єкта книги.
| 1234 | Dim wb як робочий зошитset wb = робочі книги ("savefile.xlsm")wb.save |
Збережіть книгу, визначену рядковою змінною
Це збереже книгу з назвою, збереженою до рядкової змінної.
| 1234 | Затемнити wbstring як рядокwbstring = "savefile.xlsm"робочі зошити (wbstring) .зберегти |
Збережіть книгу, визначену в порядку відкриття.
Примітка: у першій відкритій книзі буде 1, у другій 2 тощо.
| 1 | робочі зошити (1) .зберегти |
Збережіть книгу на основі значення комірки
Це збереже книгу, ім’я якої знайдено у значенні комірки.
| 1234 | Затемнити wbstring як рядокwbstring = activeworkbook.sheets ("аркуш1"). діапазон ("wb_save"). значенняробочі зошити (wbstring) .зберегти |
Зберегти як - VBA
Команда VBA Зберегти як зберігає файл Excel як новий файл, подібно до натискання значка Зберегти як або за допомогою ярлика Зберегти як (Alt> F> A).
Вище ми визначили всі способи вказати, яку книгу зберегти. Ви можете використовувати ці ж методи для ідентифікації книг під час використання Зберегти як.
Зберегти як поводиться так само, як і Зберегти, за винятком того, що вам також потрібно вказати ім’я нового файлу.
Насправді, функція «Зберегти як» має багато потенційних змінних для визначення:
Зберегти як синтаксис:
| 123 | об'єкт робочої книги .SaveAs (FileName, FileFormat, Password, WriteResPassword, _ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, _AddToMru, TextCodepage, TextVisualLayout, Local) |
Повний опис усіх аргументів SaveAs наведено нижче. Поки що ми зупинимось на найпоширеніших прикладах.
Примітка: Ці аргументи можна ввести як рядок з дужками або як визначені змінні.
Приклади збереження як синтаксису:
Робочий зошит Зберегти як - той самий каталог
| 1 | ActiveWorkbook.SaveAs Назва файлу: = "новий" |
або
| 1 | ActiveWorkbook.SaveЯк "новий" |
або
| 1234 | Затемнити wbstring як рядокwbstring = "новий"ActiveWorkbook.SaveAs Ім'я файлу: = wbstring |
Робоча книга Зберегти як - новий каталог
| 1 | ActiveWorkbook.SaveAs Ім'я файлу: = "C: \ new" |
або
| 1234 | Затемнити wbstring як рядокwbstring = "C: \ новий"ActiveWorkbook.SaveAs Ім'я файлу: = wbstring = |
Робоча книга Зберегти як - новий каталог, вкажіть розширення файлу
| 1 | ActiveWorkbook.SaveAs Ім'я файлу: = "C: \ new.xlsx" |
або
| 1234 | Затемнити wbstring як рядокwbstring = "C: \ new.xlsx"ActiveWorkbook.SaveAs Ім'я файлу: = wbstring |
Робоча книга Зберегти як - новий каталог, вкажіть розширення файлу - альтернативний метод
Ви також можете вказати формат файлу у власному аргументі.
| 1234 | .xlsx = 51 '(52 для Mac).xlsm = 52 '(53 для Mac).xlsb = 50 '(51 для Mac).xls = 56 '(57 для Mac) |
| 1 | ActiveWorkbook.SaveAs Ім'я файлу: = "C: \ new", Формат файлу: = 51 |
Робоча книга Зберегти як - додайте пароль, щоб відкрити файл
| 1 | ActiveWorkbook.SaveAs Ім'я файлу: = "C: \ new.xlsx", Пароль: = "пароль" |
Робоча книга Зберегти як - додайте пароль для прав на запис
Якщо не вказано правильний пароль, книга відкриється як "Тільки для читання"
| 1 | ActiveWorkbook.SaveAs Ім'я файлу: = "C: \ new.xlsx", WriteRes: = "пароль" |
Робоча книга Зберегти як - рекомендовано лише для читання
ІСТИНА для відображення вікна повідомлень, рекомендуючи відкривати файл лише для читання.
| 1 | ActiveWorkbook.SaveAs Ім'я файлу: = "C: \ new.xlsx", ReadOnlyRecommended: = TRUE |
Інші приклади збереження як
Створити діалогове вікно "Зберегти як"
Це генерує діалогове вікно Зберегти як, пропонуючи користувачеві зберегти файл.
Майте на увазі, що цей простий код може бути невідповідним у всіх випадках.
| 1 | Application.GetSaveAsFilename |
Створити діалогове вікно "Зберегти як" із вказаною назвою файлу за замовчуванням
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Створити діалогове вікно "Зберегти як" із вказаною назвою файлу за замовчуванням
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Створення та збереження нової книги
Це створить нову книгу та негайно збереже її.
| 123456 | Dim wb Як робочий зошитВстановити wb = Робочі книги. ДодатиApplication.DisplayAlerts = Неправдаwb.SaveAs Ім'я файлу: = ”c: \ Test1.xlsx”Application.DisplayAlerts = Правда |
Вимкніть збереження сповіщень
Під час роботи зі збереженням у VBA ви можете зіткнутися з різними попередженнями чи сповіщеннями про збереження. Щоб вимкнути попередження, додайте цей рядок коду:
| 1 | Application.DisplayAlerts = Неправда |
і для повторного включення сповіщень:
| 1 | Application.DisplayAlerts = Правда |
