Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Имена всех открытых книг / 3 сообщений из 3, страница 1 из 1
04.12.2015, 18:19:30
    #39120957
Tuki
Tuki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имена всех открытых книг
В общем вопрос уже обозначен, но ... хотелось бы получить имена (если возможно полное имя, с диском, каталогом) всех книг в т.ч. надстроек ... если это возможно на VBA , буду благодарен за пример кода или ссылку где об этом почитать ... заранее спасибо за любые ответы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2015, 18:31:56
    #39120967
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имена всех открытых книг
открытые книги:
Код: vbnet
1.
2.
3.
4.
Dim k As Workbook
For Each k In Workbooks
  Debug.Print k.Path + Application.PathSeparator + k.Name
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2015, 23:23:44
    #39121128
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имена всех открытых книг
Tuki в т.ч. надстроек ...
Код: vbnet
1.
2.
3.
4.
Dim m As AddIn
For Each m In AddIns
  Debug.Print m.FullName, m.Installed
Next

У Workbook кстати тоже есть свойство FullName.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Имена всех открытых книг / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 597ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2173259]:
 0ms
get settings:
 17ms
get forum list:
 28ms
check forum access:
 7ms
check topic access:
 7ms
track hit:
 76ms
get topic data:
 21ms
get forum data:
 5ms
get page messages:
 86ms
get tp. blocked users:
 3ms
others: 347ms
total:  597ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]