Ozon
1

Создание модуля Class из модуля Code в личной книге

29.03.2011, 14:14. Показов 2120. Ответов 6
Метки нет (Все метки)

Помогите пожалуйста!!!

Не могу создать модуль Class в создаваемой из программного кода рабочей книги. Подскажите пожалуйста! Мне нужно, чтобы программный код, написанный в личной книге Personal.xls создавал модуль Class в рабочей книге (активной).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.03.2011, 14:14
Ответы с готовыми решениями:

Функции модуля работают, но самого модуля в книге не видно
Помогите, пожалуйста. Написал в модуле функцию. Использовал ее на листе и сохранил файл. Когда...

Устранить ошибку отсутствия модуля exeptions при импорте модуля docx
Доброго времени суток! только начал знакомство с питоном, установил pip, pycharm и тд. Вот решил...

Как из одного модуля добраться к языковым переменным другого модуля? (Joomla 2.5)
Хочу сделать регистрацию в модальном окне. Для этого делаю модуль вставки html и вставляю форму...

ПММ AEG. Нужна ремонтная документашка и прошивка силового модуля и модуля индикации
F55402VI0P 911676002 j24_cac01_02z003.dax 117384831 computime code: ELED046 ELECTROLUX CODE:...

6
14 / 14 / 2
Регистрация: 23.03.2010
Сообщений: 635
30.03.2011, 14:40 2
Что-то типа этого:
Visual Basic
1
2
3
4
5
6
7
 
With Application.ActiveWorkbook.VBProject
    .References.AddFromGuid '{0002E157-0000-0000-C000-000000000046}', 0, 0
    Set objModule = .VBComponents.Add(vbext_ct_ClassModule)
    objModule.Name = 'MyClass1'
    .VBComponents('MyClass1').CodeModule.AddFromFile strFilePath & strFileName
End With
(Можно заменить ... .AddFromFile на .AddFromString, предварительно создав строковую переменную или константу, содержащую код модуля)

Вроде всё. Удачи!
0
Ozon
30.03.2011, 16:37 3
Огромное спасибо!!!
Ozon
30.03.2011, 17:34 4
Vlth, если я правильно понял, то мне нужно сделать так:
Код
   ModulCode = _
  ' текст кода' _
   & 'продолжение текста кода' _
   & 'продолжение текста кода'
Но такой код у меня вносится в модуль в одну строку, если я правильно все делаю, то как мне сделать перенос кода на новую строку? Как я понимаю должен быть какой то служебный символ наверно? Подскажите еще раз пожалуйста.
14 / 14 / 2
Регистрация: 23.03.2010
Сообщений: 635
30.03.2011, 18:18 5
Help (F1):
Constant Equivalent Description
vbCrLf Chr(13) + Chr(10) Carriage return–linefeed combination
vbCr Chr(13) Carriage return character
vbLf Chr(10) Linefeed character
vbNewLine Chr(13) + Chr(10) or, on the Macintosh, Chr(13) Platform-specific new line character; whichever is appropriate for current platform
0
Messir
30.03.2011, 21:35 6
Хм, по-моему, назначение имени модулю - это ненужая и опасная операция (втом смысле, что уже может оказаться модуль с таким именем).
Проще (и быстрее), получив ссылку на созданный объект модуля, его и использовать.
14 / 14 / 2
Регистрация: 23.03.2010
Сообщений: 635
03.04.2011, 12:48 7
2Messir:
Согласен. Промежуточное действие - присвоение имени модулю - введено
исключительно с целью демонстрации обращения к объекту и управления
его свойствами.
Всё-таки организация кода, включая обработку ошибок, дело 'конечного' программиста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2011, 12:48
Помогаю со студенческими работами здесь

запуск модуля из модуля (Sub test() CommandBars(1).Enabled = False load module2.test1 End Sub)
Sub test() CommandBars(1).Enabled = False load module2.test1 End Subвот что-то типа такого и не...

В начало каждого модуля должен быть помещен комментарий, описывающий функции данного модуля
Очень нужна ваша помощь. Пожалуйста, кто знает, помогите с этой задачей. Задача на тему:...

Какой физический смысл модуля кручения и модуля сдвига
Какой физический смысл модуля кручения и модуля сдвига?

Вызвать из динамически созданного модуля процедуру создавшего модуля
Всем привет. Не знал как сформулировать тему - поэтому не бейте меня. Такая ситуация: Есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru