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

29.03.2011, 14:14. **Показов** 2120. **Ответов** 6

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

Не могу создать модуль Class в создаваемой из программного кода рабочей книги. Подскажите пожалуйста! Мне нужно, чтобы программный код, написанный в личной книге Personal.xls создавал модуль Class в рабочей книге (активной).

@vlth · 30.03.2011, 14:40

Что-то типа этого:

Visual Basic

 
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, предварительно создав строковую переменную или константу, содержащую код модуля)

Вроде всё. Удачи!

30.03.2011, 16:37

Огромное спасибо!!!

30.03.2011, 17:34

Vlth, если я правильно понял, то мне нужно сделать так:

Код

   ModulCode = _
  ' текст кода' _
   & 'продолжение текста кода' _
   & 'продолжение текста кода'

Но такой код у меня вносится в модуль в одну строку, если я правильно все делаю, то как мне сделать перенос кода на новую строку? Как я понимаю должен быть какой то служебный символ наверно? Подскажите еще раз пожалуйста.

@vlth · 30.03.2011, 18:18

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

30.03.2011, 21:35

Хм, по-моему, назначение имени модулю - это ненужая и опасная операция (втом смысле, что уже может оказаться модуль с таким именем).
Проще (и быстрее), получив ссылку на созданный объект модуля, его и использовать.

@vlth · 03.04.2011, 12:48

2Messir:
Согласен. Промежуточное действие - присвоение имени модулю - введено
исключительно с целью демонстрации обращения к объекту и управления
его свойствами.
Всё-таки организация кода, включая обработку ошибок, дело 'конечного' программиста

Ozon
		1
	Создание модуля Class из модуля Code в личной книге 29.03.2011, 14:14. Показов 2120. Ответов 6 Метки нет (Все метки) Помогите пожалуйста!!! Не могу создать модуль Class в создаваемой из программного кода рабочей книги. Подскажите пожалуйста! Мне нужно, чтобы программный код, написанный в личной книге Personal.xls создавал модуль Class в рабочей книге (активной). __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

Ozon
	30.03.2011, 17:34	4
	Vlth, если я правильно понял, то мне нужно сделать так: Код ModulCode = _ ' текст кода' _ & 'продолжение текста кода' _ & 'продолжение текста кода' Но такой код у меня вносится в модуль в одну строку, если я правильно все делаю, то как мне сделать перенос кода на новую строку? Как я понимаю должен быть какой то служебный символ наверно? Подскажите еще раз пожалуйста.

@vlth 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
	Хм, по-моему, назначение имени модулю - это ненужая и опасная операция (втом смысле, что уже может оказаться модуль с таким именем). Проще (и быстрее), получив ссылку на созданный объект модуля, его и использовать.

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	03.04.2011, 12:48	7
	2Messir: Согласен. Промежуточное действие - присвоение имени модулю - введено исключительно с целью демонстрации обращения к объекту и управления его свойствами. Всё-таки организация кода, включая обработку ошибок, дело 'конечного' программиста 0

Опции темы