Интерпретация значение стрококовой переменной как команду.

[tae1980]

Всем привет!!! И доброй ночи!
Давно меня здесь не было....

Существует ли в VBA команды интерпретации?

Например я могу в программе написать так: x1=23
Но могу ли я присвоить строковой переменной это же значение (например: stroka="x1=23") и интерпретировать эту переменную как команду?

[motorway]

Что означает интерпретировать как команду? Для чего это нужно?

[tae1980]

Сообщение от motorway

Что означает интерпретировать как команду? Для чего это нужно?

Команда интерпретирования выполняет код записанный в текстовую переменную так как будто она она введена пользователем в обычном режиме. Это позволяет генерировать код программы в самой программе, то есть грубо это можно предстать как "программа пишет сама себя".

Данный механизм очень хорошо развит в языке rexx, и в сочетании с его "уникальной" структурой дает очень широкие возможности для программиста. Мы с другом разработали ряд методик по весьма эффективному использованию подобной возможности.
Работаю над очередным макросом я прикинул что наличие такой команды позволит раз в 5 уменьшить размер листинга.
Впервые я столкнулся с командами интерпретации еще на спектруме, изучая его бейсик. Но в хелпе VBA найти ни чего не смог.

[IgorGO]

(например: stroka="x1=23") и интерпретировать эту переменную как команду?

видимо вопрос звучит так могу я строку "x1=23" внести в листинг программы, чтобы она выполнялась как стандартный оператор ВБА. В данном случае переменной х1 присвоить значение 23.
модуль ВБА, такой же обьект, как многие другие, у него есть свои свойства и методы.
скопируйте вот это в модуль:

Sub s1()
  ActiveWorkbook.VBProject.vbcomponents(3).codemodule.insertlines 7, "  x1 = 23" & vbCrLf & "  msgbox x1"
  s2
End Sub

Sub s2()
End Sub

убедитесь, что строка "Sub s2()" является 6-й строкой в модуле и выполните процедуру s1.

[tae1980]

Сообщение от IgorGO

видимо вопрос звучит так могу я строку "x1=23" внести в листинг программы, чтобы она выполнялась как стандартный оператор ВБА. В данном случае переменной х1 присвоить значение 23.

Именно так.

Сообщение от IgorGO

модуль ВБА, такой же обьект, как многие другие, у него есть свои свойства и методы.
скопируйте вот это в модуль:

Sub s1()
  ActiveWorkbook.VBProject.vbcomponents(3).codemodule.insertlines 7, "  x1 = 23" & vbCrLf & "  msgbox x1"
  s2
End Sub

Sub s2()
End Sub

убедитесь, что строка "Sub s2()" является 6-й строкой в модуле и выполните процедуру s1.

Скопировал. Убедился. Попробовал запустить по "F5". Получил сначала сообщение:
Программный доступ к проекту Visual Basic не является доверенным.
а потом сообщение:
Method 'VBProject' of object '_Workbook' failed
Попытка запуска из из книги по "F8" так же не далась, там вообще при наведении на имя процедуры кнопка "выполнить" перестает быть активной.

В общем идею понял. Можно ли в таком варианте задать не текстовую строку, а переменную - которая содержит нужную текстовую строку?

[IgorGO]

Alt+F11, курсор не территорию S1, F5 или выполнить.