Sub Script()
' описание и создание объекта
' (командой Reference подключите библиотеку Microsoft Script Control)
Dim myScript As MSScriptControl.ScriptControl
Set myScript = New MSScriptControl.ScriptControl
' обязательно нужно определить языковой механизм
myScript.Language = "vbscript"
'(можно и джаваскрипт :)
myScript.ExecuteStatement "msgbox " & """" & myScript.Eval("(2+5)* 6") & """"
' Или, как вариант, без референцев
' (будет медленнее, не будут подсказываться методы,
' но зато можно обработать ошибку, если вдруг скриптконтрол не установлен:
' Dim myScript As Object
' Set myScript = CreateObject("MSScriptControl.ScriptControl")
End Sub
Xcode писал(а):Ы?
Сейчас этот форум просматривают: Yandex-бот и гости: 57