Автозагрузка - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Автозагрузка - Мир MS Excel

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_, DrMini

Автозагрузка

Автозагрузка

Дата: Суббота, 07.07.2012, 00:27 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

При запуске Excel происходит загрузка подключенных надстроек (xla*), и неподключенных (xls*) из excelstart. В каком порядке они загружаются?
Нужно создать файл (любой формат), который-бы загружался первым, и рулил загрузкой остальных.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Суббота, 07.07.2012, 08:59 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Фиг его знает. Короче первыми грузятся надстройки, скорей всего в алфавитном порядке. Потом personal и далее по списку.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Суббота, 07.07.2012, 09:05

Ответить

Дата: Суббота, 07.07.2012, 11:04 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

в каждый из автозапускаемых файлов в обработчик workbook_open (или Auto_open) пропиши
[vba]

Code

debug.print thisworkbook.name

[/vba]
и будет тебе последовательность...

потом нам расскажешь, интересно же...

Ответить

Дата: Суббота, 07.07.2012, 14:12 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Саня, а что это даст? Имхо, врядли последовательность можно узнать таким образом. Вот если есть возможность что-то типа
[vba]

Code

debug.print все_активные_книги.name

[/vba]

Ответить

Дата: Суббота, 07.07.2012, 14:50 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

Quote (Michael_S)

Саня, а что это даст?

ответ на этот вопрос:

Quote (RAN)

В каком порядке они загружаются?

ты может не увидел это:

Quote (Саня)

в каждый из автозапускаемых файлов

Ответить

Дата: Суббота, 07.07.2012, 14:57 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Ну и, имхо, получим в каждом файле имя этого файла. А как узнать, открылся он первым, вторым или двадцатым?
зы. Мне это не нужно, проверять не буду, просто в интересах общего развития...

зы.зы. Если есть возможность - покажи скрин, что получается, хотя бы на пару-тройку файлов...

Сообщение отредактировал Michael_S - Суббота, 07.07.2012, 15:00

Ответить

Дата: Суббота, 07.07.2012, 15:01 | Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Миш, не тормози. В окне immediate будет тебе последовательность открытия:) Вопрос только как впихнуть команду в пакет анализа и иже с ним. Они работают с DLL.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Дата: Суббота, 07.07.2012, 15:06 | Сообщение № 8

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

Quote (Michael_S)

Ну и, имхо, получим в каждом файле имя этого файла.

debug.print куда пишет-то?

К сообщению приложен файл: 3523007.jpg (14.9 Kb)

Ответить

Дата: Суббота, 07.07.2012, 15:15 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Quote (KuklP)

Миш, не тормози.

да, проверил, правде не из автозагрузки - последовательность видна..

Ответить

Дата: Суббота, 07.07.2012, 15:17 | Сообщение № 10

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Quote (RAN)

Нужно создать файл (любой формат), который-бы загружался первым, и рулил загрузкой остальных.

Андрюх, оставь один файл в папке автозагрузки. И им грузи весь остальной винегрет.
PS только нафиг это надо?:-)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Суббота, 07.07.2012, 15:19

Ответить

Дата: Суббота, 07.07.2012, 15:40 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Саня, не все так просто. Как я залезу в код надстройки, закрытой паролем?
Можно конечно попробовать создать пустышку с тем же именем.
А винегрет вот к чему.
Не хочу делиться своими надстройками с некоторыми... А комп один, и пользователь на нем один.
Загружаем Excel - грузится первый файл и спрашивает - это ты?
Если я, все работает, а нет - или не грузим остальное, или блокируем... Ну видно будет. smile

smile

DLL не интересуют. Пусть грузятся.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Суббота, 07.07.2012, 16:11 | Сообщение № 12

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

смотришь на диалог "Надстройки"

первая в списке д.б. твоя надстройка - именно она и будет загружена первой.

Заходим в ее проект:
1. создаем модуль класса, называем CApp, в него пишем
[vba]

Code

Option Explicit
Public WithEvents XL As Application

Private Sub XL_WorkbookOpen(ByVal Wb As Workbook)
Debug.Print Wb.Name, "XL_WorkbookOpen"
End Sub

[/vba]

2. в станд. модуле объявляем
[vba]

Code

Public X As CApp

[/vba]

3. в модуле "ЭтаКнига"
[vba]

Code

Private Sub Workbook_Open()
     Set X = New CApp
     Set X.XL = Application

     Debug.Print ThisWorkbook.Name, "Workbook_Open"
End Sub

[/vba]

все, первая надстройка открываясь, создает событийный объект-приложение, которое уже отслеживает открытие остальных книг (надстроек)

К сообщению приложен файл: 0842545.jpg (29.3 Kb) · 2642441.jpg (29.5 Kb)

Ответить

Дата: Суббота, 07.07.2012, 21:45 | Сообщение № 13

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Бум пробовать.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Воскресенье, 08.07.2012, 23:23 | Сообщение № 14

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Саня, интересный вариант, но не прокатывает!
Запузырил 1.xla. В списке верхняя.
Вставил код
[vba]

Code

Private WithEvents XL As Application
Private Sub Workbook_Open()
Stop
Set XL = Application
End Sub

Private Sub XL_WorkbookOpen(ByVal Wb As Workbook)
Debug.Print ThisWorkbook.Name, "Workbook_Open"
End Sub

[/vba]
Stop встает - все надсторойки загружены.
печатает только 1.xla
С твоим кодом - то же самое.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Воскресенье, 08.07.2012, 23:44 | Сообщение № 15

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

Quote (RAN)

Stop встает - все надсторойки загружены.

значит она ПОСЛЕДНЯЯ.

в реестре посмотри, можа там есть последовательность загрузки списком

[vba]

Code

Private Sub XL_WorkbookOpen(ByVal Wb As Workbook)
Debug.Print ThisWorkbook.Name, "Workbook_Open"
End Sub

[/vba]
замени на
[vba]

Code

Private Sub XL_WorkbookOpen(ByVal Wb As Workbook)
Debug.Print Wb.Name, "Workbook_Open"
End Sub

[/vba]

как и ожидалось

К сообщению приложен файл: 2906752.jpg (72.3 Kb)

Ответить

Дата: Вторник, 10.07.2012, 09:47 | Сообщение № 16

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Итого:
Порядок загрузки зависит от порядка подключения и имени надстройки.

Отключаем все надстройки, закрываем Excel, открываем Excel, подключаем любую надстройку, закрываем Excel.
Эта надстройка будет загружаться первой не зависимо от имени и последующего подключения надстроек.

Отключаем все надстройки, закрываем Excel, открываем Excel, подключаем надстройки, закрываем Excel.
Порядок подключения - по алфавиту (порядку с списке надстроек).

Сложноват способ, но работает.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Вторник, 10.07.2012, 10:07 | Сообщение № 17

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ну коли мы в реестр полезли, то еще вопрос.
Когда ставил Файнридер, тыкнул в кнопочку интегрировать в офис (или как там ее).
В рузультате подключились на редкость бестолковые надстройки COM DLL.
Отключить их из офиса не могу.
Нашел их в реестре.
Я правильно понимаю - нужно просто удалить эту папку? Или нет?

Точнее не только отсюда, но и из соседних папок офиса?

К сообщению приложен файл: 9749617.jpg (25.1 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Вторник, 10.07.2012, 10:11

Ответить

Дата: Вторник, 10.07.2012, 10:18 | Сообщение № 18

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

Quote (RAN)

Отключить их из офиса не могу.

почему?
как делал?

Ответить

Дата: Вторник, 10.07.2012, 10:54 | Сообщение № 19

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

В списке доступных надстроек (там, где крыжики ставятся, и который ты показал в сообщении 12) их нет.
А в общем списке они ни на что не реагируют.

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Вторник, 10.07.2012, 11:10 | Сообщение № 20

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

их там и не должно быть, в 2007, 2010 так, в 2003 не помню

К сообщению приложен файл: 2307704.jpg (95.0 Kb)

Ответить

Автозагрузка

Страница 1 из 2
1
2
»

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!