Ребята всем привет 👋.
Продолжаем изучать VBA. Сегодня публикую четвертую часть справочника.
🔔 Напомню, так как сам справочник объемный я буду публиковать его серией отдельных уроков. План такой:
- часть 4. Рабочие книги (план сегодняшнего урока)
- часть 5. Настройки
- часть 6. Ошибки и файлы
- часть 7. Массивы и Коллекции
- часть 8. Словари
Если вы только начинаете осваивать VBA мы уверены, каждый может найти для себя что-то новое!
✨ А прежде, чем мы начнем 📣 напомню, теперь у нас на канале есть удобный рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel, а все видео 📽 предыдущих уроков доступны и на YouTube.
✔️ Часть 4. Рабочие книги
🔔 ссылку на исходник и возможность скачать справочник см. в конце статьи 🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽
🔘 Активировать ▶️ Workbooks(“Book1”).Activate
🔘 Активировать первый открытый лист ▶️ Workbooks(1).Activate
🔘 Получить Активную книгу ▶️ Workbooks(Workbooks.Count).Activate
🔘 Получить эту рабочую книгу (содержащую код VBA) ▶️ MsgBox ActiveWorkbook.Name
🔘 Добавить ▶️ Workbooks.Add
🔘 Добавить в переменную ▶️ Dim wb As Workbook
Set wb = Workbooks.Add
🔘 Открыть ▶️ Workbooks.Open(“C:\example.xlsm”)
🔘 Открыть для переменной ▶️ Dim wb As Workbook
Set wb = Workbooks.Open(“C:\example.xlsm”)
🔘 Закрыть ▶️ Workbooks(“Book1”).Close SaveChanges:=False
Workbooks(“Book1”).Close SaveChanges:=True
🔘 Сохранить ▶️ Workbooks(“Book1”).Save
🔘 Сохранить как ▶️ Workbooks(“Book1”).SaveAs strFileName
🔘 Защита / снятие защиты ▶️ Workbooks(1).Protect “password”
Workbooks(1).Unprotect “password”
🔘 Установить в переменную ▶️ Dim wb as Workbook
Set wb = Workbooks(“Book1”)
🔘 Перебрать все книги в Workbooks ▶️ Dim wb As Workbook
For Each wb In Workbooks
MsgBox wb.Name
Next wb
🔘 Проверка ▶️ If Dir(“C:\Book1.xlsx”) = “” Then
MsgBox “File does not exist.”
End If
🔘 Запретить копирование ▶️ FileCopy “C:\file1.xlsx”,”C:\file2.xlsx”
А на этом сегодня все. 👏 Продолжение следует...
Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel. Следите за нашими новостями и вы узнаете больше о VBA и Excel в частности.
📝 Нам очень важна Ваша обратная связь. Отзыв по уроку и любые вопросы пишите в комментариях.
💝 А если у Вас пока нет вопросов, но вы дочитали данную статью до конца оставьте в комментариях просто смайлик 😉 (автору будет приятно)
И конечно же, за лайк 👍 и репост 🔁 данного поста благодарочка 💖 и респект 🤝 каждому!
⏩ ССЫЛКА НА СПРАВОЧНИК
