Ребята всем привет 👋
Продолжаем изучать VBA. Сегодня я расскажу как сохранить файл с помощью команды Save в VBA.
Если вы только начинаете осваивать VBA мы уверены, каждый может найти для себя что-то новое!
✨ А прежде, чем мы начнем 📣 напомню, теперь у нас на канале есть удобный рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel, а все видео 📽 предыдущих уроков доступны и на YouTube.
🔔 ссылку на исходник и возможность скачать справочник см. в конце статьи 🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽
Также ссылка на данный справочник внесена в наш рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel.
✔️ Сохраняем рабочую книгу - VBA
Команда сохранения VBA Save сохраняет файл Excel аналогично щелчку на значке сохранения или использованию сочетания клавиш сохранения (CTRL + S).
▶️ Пример 1. Сохраняем указанную рабочую книгу
Чтобы сохранить рабочую книгу, обратитесь к объекту рабочей книги и используйте команду Сохранить.
🔘 Пишем КОД: Workbooks("savefile.xlsm").Save
▶️ Пример 2. Сохраняем активную рабочую книгу
🔔 Активная рабочая книга -это текущая активная рабочая книга из with в коде VBA, которая отличается от этой рабочей книги, содержащей выполняемый код.
🔘 Пишем КОД: ActiveWorkbook.Save
▶️ Пример 3. Сохраняем рабочую книгу, в которой хранится код
🔘 Пишем КОД: ThisWorkbook.save
▶️ Пример 4. Сохраняем все открытые книги
Это приведет к циклическому просмотру всех открытых книг, сохраняя каждую из них.
🔘 Пишем КОД:
Dim wb as workbook
For Each wb In Application.Workbooks
wb.Save
Next wb
▶️ Пример 5. Сохраняем все открытые книги, которые не были открыты только для чтения
Открытие книги в режиме только для чтения предотвращает сохранение файла.
🔔 Чтобы сохранить файл, вам нужно будет использовать Сохранить как и сохранить файл с другим именем.
🔘 Пишем КОД:
Dim wb as workbook
For Each wb In Application.Workbooks
If not wb ReadOnly then
wb.Save
End if
Next wb
▶️ Пример 6. Сохраняем рабочую книгу, определенную переменной
🔔 Данный код сохранит рабочую книгу, которая была назначена объектной переменной рабочей книги.
🔘 Пишем КОД:
Dim wb as workbook
set wb = workbooks("savefile.xlsm")
wb.save
▶️ Пример 7. Сохраняем рабочую книгу, определенную строковой переменной
🔔 Данный код позволит сохранить книгу, имя которой было сохранено в строковой переменной.
🔘 Пишем КОД:
Dim wbstring as string
wbstring = "savefile.xlsm"
workbooks(wbstring).save
▶️ Пример 8. Сохраняем рабочую книгу, определенную в порядке ее открытия
🔘 Пишем КОД: workbooks(1).save
Прим.: в первой открытой рабочей книге будет 1, во второй - 2 и т.д.
▶️ Пример 9. Сохраняем рабочую книгу на основе значения ячейки
🔔 Данный код позволит сохранить рабочую книгу, имя которой находится в значении ячейки.
🔘 Пишем КОД:
Dim wbstring as string
wbstring = activeworkbook.sheets("sheet1").range("wb_save").value
workbooks(wbstring).save
А на этом сегодня все. 👏 Продолжение следует...
Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel. Следите за нашими новостями и вы узнаете больше о VBA и Excel в частности.
📝 Нам очень важна Ваша обратная связь. Отзыв по уроку и любые вопросы пишите в комментариях.
💝 А если у Вас пока нет вопросов, но вы дочитали данную статью до конца оставьте в комментариях просто смайлик 😉 (автору будет приятно)
И конечно же, за лайк 👍 и репост 🔁 данного поста благодарочка 💖 и респект 🤝 каждому!