Як отримати назву відкритої книги у VBA?

0 Comments 22:11

Отримати назву робочої книги Щоб отримати назву активної робочої книги, нам потрібно використовувати властивість name об'єкта робочих книг. Якщо ми запустимо наведений вище код, ми побачимо вікно повідомлення, яке з’явиться на екрані з назвою Active workbook. Наведені вище приклади включатимуть розширення файлу (наприклад, xlsx).

Натисніть Alt + F8, щоб відкрити діалогове вікно «Макрос» (або виберіть «Інструменти» > «Макрос» > «Макроси» на верхній панелі інструментів Excel) Знайдіть макрос під назвою PERSONAL. XLS! GetFileNames і натисніть на нього (якщо ви не бачите його в списку, переконайтеся, що в нижньому полі вибору зазначено «Усі відкриті робочі книги»)

Якщо відкрито більше дев’яти робочих зошитів, тоді Excel відображає пункт меню «Більше вікон», який можна вибрати, щоб відобразити список усіх відкритих робочих книг. Якщо вибрати робочу книгу з цього списку, ця книга буде відображена.

Щоб відкрити книгу за допомогою VBA, вам потрібно використовувати «Робочий зошит. Open» і вкажіть шлях до файлу (обов’язково вкажіть повний шлях до робочої книги з назвою та типом розширення файлу). Цей метод має загалом п’ятнадцять необов’язкових аргументів, які можна використовувати для роботи з різними типами файлів.

Щоб отримати ім’я робочої книги, формула працює в 5 кроків:

  1. Отримайте повний шлях і назву файлу.
  2. Знайдіть квадратну дужку, що відкривається ("[").
  3. Знайдіть квадратну дужку, що закривається ("]").
  4. Обчисліть довжину імені книги в символах.
  5. Витягніть текст у квадратних дужках за допомогою функції MID.

Related Post

Скільки коштує катання на лижах в Санкт-Моріц?Скільки коштує катання на лижах в Санкт-Моріц?

Порівняйте всі ціни на абонемент на підйомник у Швейцарії гірськолижний курорт Квиток на 1 день 6 днів катання на лижах Підйомник Мюррен CHF64 – CHF64 290 – 290 швейцарських франків

Як вручну встановити драйвери Wi-Fi?Як вручну встановити драйвери Wi-Fi?

Завантажте найновіші бездротові драйвери від виробника ПК. Якщо ви придбали картку Wi-Fi окремо, завантажте їх у виробника. Видаліть поточний драйвер у диспетчері пристроїв перед встановленням нового драйвера. Двічі клацніть файл

Хто прислав Кирила і Мефодія?Хто прислав Кирила і Мефодія?

У 863 році до Візантії прибуло посольство Моравський князь Росцислав просять місіонерів, які знають слов'янську мову. До цієї місії були доручені Кирило і Мефодій. Обидва брати прямували до частково християнізованої