Програмное копирование макросов

lexey

Гость

18.03.2012 00:35:07

Доброго времени суток, в книге personal.xls(личная книга макросов) лежит макрос:

sub rt()
Workbooks("PERSONAL.xls").VBProject.VBComponents.Item("Module2").Export "MyFunction.bas"
ThisWorkbook.VBProject.VBComponents.Import "MyFunction.bas"
end sub
подскажите плиз на что нужно заменить ThisWorkbook что бы при открытии любой книги или создании новой макрос импортировался бы в неё, а не обратно в personal.xls

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

18.03.2012 00:56:39

1) надо заменить ThisWorkbook на activeworkbook
2) надо добавить код, отлавливающий события открытия и создания книг,
и из обработчиков этих событий запускать макрос rt
3) а вообще, желательно хорошо подумать, и отказаться от этой затеи.
Какой смысл в копировании кода в любую книгу?
Несколько лет пишу макросы - ни разу не сталкивался с такой необходимостью.

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

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

anvg Пользователь Сообщений: 11927 Регистрация: 22.12.2012 Excel 2016, 365	#3 19.03.2012 02:48:14 По моему, проще создать книгу шаблон с этим макросом и затем создавать книги на базе этого шаблона по необходимости.

Читают тему