Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA & Excel. Генерация скрипта / 6 сообщений из 6, страница 1 из 1
28.11.2007, 06:02:46
    #34970501
kolonok
kolonok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA & Excel. Генерация скрипта
Здравы будьте все!
И подскажите, пожалуйста,
какая фифлиотека содержит объект CodeModule (VBProject.VBComponents().CodeModule).
Нарыл пример с генерацией кода:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim i As Integer
Dim cdm As CodeModule
Set cdm=ActiveWorkBook.VBProject.VBComponents("MyModule").CodeModule
i=cdm.CountOfLines+ 1 
cdm.InsertLines i, "Sub MySub()"
i=i+ 1 
cdm.InsertLines i, "MsgBox ""Hello, World!"""
i=i+ 1 
cdm.InsertLines i, "End Sub"
Set cmd=Nothing

но нет у меня в VBE такого объекта CodeModule. А подключать все библиотеки методом тыка - крайняя мера.
Может кто знает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2007, 10:19:12
    #34970805
кладовщик
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA & Excel. Генерация скрипта
kolonokЗдравы будьте все!
И подскажите, пожалуйста,
какая фифлиотека содержит объект CodeModule (VBProject.VBComponents().CodeModule).
Нарыл пример с генерацией кода:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim i As Integer
Dim cdm As CodeModule
Set cdm=ActiveWorkBook.VBProject.VBComponents("MyModule").CodeModule
i=cdm.CountOfLines+ 1 
cdm.InsertLines i, "Sub MySub()"
i=i+ 1 
cdm.InsertLines i, "MsgBox ""Hello, World!"""
i=i+ 1 
cdm.InsertLines i, "End Sub"
Set cmd=Nothing

но нет у меня в VBE такого объекта CodeModule. А подключать все библиотеки методом тыка - крайняя мера.
Может кто знает?
Скорее всего, необходимо подключить библиотеку Visual Basic For Applications.
ЗЫ Приведенный Вами код программно создает код в VB проекте активной рабочей книги, насколько я понимаю. А объект CodeModule в принципе неотъемлемая часть объектной модели IDE VBA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2007, 10:49:43
    #34970900
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA & Excel. Генерация скрипта
Microsoft Visual Basic for Application Extensibility
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2007, 12:02:00
    #34971218
кладовщик
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA & Excel. Генерация скрипта
vbapro Microsoft Visual Basic for Application Extensibility
Да, прошу прощения за ошибку.
Кстати, было б неплохо в какой-нибудь FAQ ответы на такие вопросы прикрутить. А то поиск не всегда рулит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2007, 13:11:56
    #34971521
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA & Excel. Генерация скрипта
кладовщикКстати, было б неплохо в какой-нибудь FAQ ответы на такие вопросы прикрутить. А то поиск не всегда рулит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2007, 13:12:51
    #34971525
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA & Excel. Генерация скрипта
кладовщикКстати, было б неплохо в какой-нибудь FAQ ответы на такие вопросы прикрутить. А то поиск не всегда рулит.очень хорошая идея..Думаю, новый отдельный топик нужно для начала создать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA & Excel. Генерация скрипта / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 296ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2181819]:
 0ms
get settings:
 4ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 21ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 203ms
total:  296ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]