Программное редактирование кода

[litvin22]

Возможно ли программное редактирование кода?
Ведь, по логике вещей, программный модуль является частью (объектом) активного документа, а содержащийся в нем текст кода - значением свойства. Если это так, то должна существовать возможность доступа к нему из другого модуля для редактирования.
То есть запускаем на выполнение модуль-редактор, изменяем с его помощью модуль-цель и последний начинает работать по-другому.
Это реально? А если да, то каким образом?
Ну или то же самое, из другого документа, но в пределах одного приложения.

P.S. для GSerg: я пользовался поиском, но ничего подобного не нашел.

[alibek]

Тем не менее, в поиске это есть.
Но следует учитывать, что по умолчанию это запрещено. Для разрешения нужно включить параметр "Доверять проектам VBA", что является большой дырой в безопасности.

[Gloom]

Возможно ли программное редактирование кода?
Ведь, по логике вещей, программный модуль является частью (объектом) активного документа, а содержащийся в нем текст кода - значением свойства. Если это так, то должна существовать возможность доступа к нему из другого модуля для редактирования.
То есть запускаем на выполнение модуль-редактор, изменяем с его помощью модуль-цель и последний начинает работать по-другому.
Это реально? А если да, то каким образом?
Ну или то же самое, из другого документа, но в пределах одного приложения.

P.S. для GSerg: я пользовался поиском, но ничего подобного не нашел.

В MSO это делается через объектную модель VBE

[litvin22]

Ну, делается. На Луну тоже летают.
Вопрос как, хотя бы в общих чертах.

[alibek]

Для начала подключи в референсах библиотеку Microsoft Visual Basic 6.0 Extensibility.
Затем посмотри в Object Browser мемберов этой библиотеки.
Думаю, после этого вопросы исчезнут.

[Gloom]

Ну, делается. На Луну тоже летают.
Вопрос как, хотя бы в общих чертах.

Примерчик для Excel:

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

Set vbModule = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
vbModule.CodeModule.AddFromString "Public Sub HelloWorld" & vbCrLf & "MsgBox ""Hello, World!""" & vbCrLf & "End Sub"
Application.Run "HelloWorld"

[KL]

Вот тут все довольно подробно описано: http://www.cpearson.com/excel/vbe.htm

[litvin22]

Спасибо. Но возникли еще вопросы.
1. В разных примерах указывается по разному:

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

Application.VBE.ActiveVBProject.VBComponents(...).CodeModule
Application.VBE.CodePanes(...).CodeModule
ThisWorkbook.VBProject.VBComponents(...).CodeModule

вроде, работает и так и так, но ведь есть же разница
2. Если в скобках (...) ставить не "имя модуля", а его номер, где его можно узнать.
То есть его можно установить, запуская код типа

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

   For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
        MsgBox i & "  " & ThisWorkbook.VBProject.VBComponents.Item(i).Name
    Next i

А вот как прочесть, наподобие того, как читают свойствам в Properties Windows