Внедрение в файл Excell формы, макроса из другого файла

[Agent_Smith]

Помогите пожалуста реализовать такую вещь:

Есть файл (Книга1), в котором - формы, макросы, собирающие данные у юзера. После чего, на основании собранных данных, генерится другой файл (Книга2), с 2 листами.

Нужно:

-программа минимум - внедрить из Книги1 в Книгу2 форму заданного вида, с элементами управления (кнопки Ok, Cancel, TextBox...)

-в пределе - запаролить второй лист в Книге2.
Моё ламерское видиние реализации - внедрение в Книгу2 формы, макроса. Задание переменной при открытии Книги2, например, в False. Проверка значения переменной по событию Select листа 2. Если False - модально выводится вышеуказанная форма. При правильном вводе пароля - установление переменной в True, активация листа.
Как-то так вроде.
Никаких заморочек с защитой пароля, макроса - не нужно вообще. С файлом будут работать даже не дятлы - туканы.


Помогите пожалуйста - поверхностное знание VBA ужасно замедляет творческий процесс... За 2 дня нарыл лишь, как внедрить макрос, записать его, да вставить форму путём

Код: Выделить всё

Application.Workbooks(Workbooks.Count).VBProject.VBComponents.Add (vbext_ct_MSForm)

[Igor_123]

Если хочешь быстро, выйди в треп или работу и предложи москвичам помочь тебе за как договоритесь, работы на пол-дня.
Плюсы:
- познакомишься с знающими людьми, которых потом можно задать вопросы;
- выпьешь пива;
- тебе расскажут, что и как делать;

[Agent_Smith]

Спасибо за ответ!

Если хочешь быстро, выйди в треп или работу и предложи москвичам помочь тебе за как договоритесь

Никогда не оспаривал необходимость платить добром за добро, но:
- сам взялся за эту задачку в качестве бескорыстного вспоможения знакомым... тогда уж прощще перенаправить их с ящиком пива к "знающим" :(
- пиво распить с хорошими людьми - всегда рад; только где взять... нет, не денег - времени?
- и, наконец, процесс-то идёт; но как-то... нешибко; вот выяснил, что помимо подключения Microsoft Visual Basic for Applications Extensibility, для того, чтобы сделать Form.Show(Modal) нужно ещё что-то. Продолжаю поиски.

[Igor_123]

Ну тады утро вечера мудренее

[Agent_Smith]

Да уж...
Туплю уже. Вспоминал, что форму вызывает ИмяФормы.Show ещё минут 50.

Думаю, экспортировать макрос, форму в файл, и оттеда импортировать в Книгу2.

А вообще - засада не зная языка пытаться что-то делать :(

[Igor_123]

А поробуй сделать в виде шаблона книги, и тогда при создании книги на основе этого шаблона в книге будут все необходимые тебе формы и макросы. Это как вариант.

[Agent_Smith]

К сожалению, не нашёл, как можно сказать макросу, какой шаблон использовать при создании новой книги. Изменять же шаблон-по-умолчанию нельзя... :(

Вроде бы всё получается при помощи экспорта реализовать, но - снова неувязочка. Относительных путей VBA в Excell'е не приемлит (может, только у меня? ;) ), а указывать абсолютный путь к файлам с модулем и формой по ряду причине не могу.

Заморочился с выковыриванием пути из ThisWorkbook.FullName, и последующим использовании его при импорте формы, модуля в новую Книгу2. Но... некрасиво это как-то...

Нельзя ли из одного файла экспортировать-а-потом-импортировать модуль в другой файл не совершая предварительного сохранения объекта в файле?

[Igor_123]

Function Add([Template]) As Workbook

Template - строка с путем к шаблону.

Пример:

Код: Выделить всё

Workbooks.Add "c:\sample.xlt"

[Agent_Smith]

Господа хорошие, я почти всё, что хотел - реализовал.
Осталась сущая малось - дописать из макроса VB в одном файле в другой файл код VB.

В ThisWorkbook, модули, формы всё прекрасно пишется с помощью

Код: Выделить всё

Application.Workbooks(Workbooks.Count).VBProject.VBComponents.Item(1).CodeModule.InsertLines 1, "Та самая строка"

А как дописать код в Лист1, Лист2?
Даже указывая в вышепреведённой строке минимальный индекс - Item(1), пишется всё равно лишь в ThisWorkbook

Тупил ещё полчаса...
Этот вопрос решил.
Оказалось всё прощще некуда - в аргументе Item указывается имя объекта. Типа Item("Лист1") И всё.

Блин, как же недостаёт знания языка...

[Agent_Smith]

Object Browser писал(а):

Сильно сказано ))))))

Спасибо, попробую!!!

[Igor_123]

А с шаблоном, чем не нравиться???
У меня работает через шаблон.

[Agent_Smith]

С шаблоном нравится, и даже очень (есть мнение, что и работать быстрее будет, и проще в дальнейшем исправления вносить в вид генерируемой книги, и вообще).
Но - все силы были брошены на "достижение результата любой ценой". Так уж вышло, что был выбран путь перректального удаления гланд.

Но - результат достигнут.
Теперь, не завязываясь на времени, буду спокойно работать над темой "с шаблоном".

Ещё раз - спасибо за советы и поддержку! :)

[Igor_123]

Так уж вышло, что был выбран путь перректального удаления гланд.

Главное, что-бы больному полегчало, и что-бы все не оказалось ложкой

Удачи!