VBAでのMSスクリプトコントロール

Question

私は通常プログラミング用にVB.Netを使用しますが、スクリプトの実行にスクリプトコントロールを使用することで利益を得るVBAプロジェクトに委任されています。ここにサンプルコードがありますが、コードの.Run行にエラーがあります。私はVB.Netで簡単にこれを行うことができますが、それをVBAで動作させることはできません。スクリプト制御対象から.Eval機能を使用して引数または無効なプロパティassignent

Option Explicit 
Dim sc As New ScriptControl 

Sub RunFunctions() 
    MsgBox (Eval("2 * PI")) 
End Sub 

Function Eval(expr As String) As Object 
    Dim code As String 
    code = "Dim PI" & vbCrLf & _ 
      "PI = 3.1416" & vbCrLf & _ 
      " " & vbCrLf & _ 
      "Function Result" & vbCrLf & _ 
      " Result = " & expr & vbCrLf & _ 
      "End Function" 

    sc.Language = "VBScript" 
    sc.AllowUI = True 
    sc.AddCode (code) 
    Dim myparams() as variant 

    Eval = sc.Run("Result", myparams) 

End Function 

の

ERROR =間違った番号は、VBAで[OK]を実行しますが、スクリプトを実行しません。ここで誰かが...

Sub SimpleTask() 
    Dim expr As String 
    sc.Language = "VBScript" 
    expr = "2 + 2 * 50" 
    MsgBox sc.Eval(expr) 
End Sub 

Answer 1

は次のとおりです。コンパイルし、正しく実行あなたのコードを使用して完全な形でここ

更新

Eval = sc.Run("Result", myparams) 

から

Eval = sc.Run("Result") 

にこの呼び出しを変更してみてくださいVBAの最終作業コードです。 Competent_techにはVB.Net用のcompetent_techがあります。

Option Explicit 
Dim sc As New ScriptControl 

Sub RunFunctions() 
    MsgBox (Eval("2 * PI")) 
End Sub 

Function Eval(expr As String) As String 
    Dim code As String 
    code = "Dim PI" & vbCrLf & _ 
      "PI = 3.1416" & vbCrLf & _ 
      " " & vbCrLf & _ 
      "Function Result" & vbCrLf & _ 
      " Result = " & expr & vbCrLf & _ 
      "End Function" 

    sc.Language = "VBScript" 
    sc.AllowUI = True 
    sc.AddCode (code) 

    Eval = sc.Run("Result") 

End Function 

Answer 2

を知ることが気にならば、私は問題がsc.Runにあなたのパラメータであると思うの一例です。ここで

Option Explicit On 
Option Strict On 

Imports MSScriptControl 

Public Class Form1 

    Dim sc As New ScriptControl 

    Sub RunFunctions() 
     MsgBox(Eval("2 * PI")) 
    End Sub 

    Function Eval(expr As String) As Object 
     Dim code As String 
     code = "Dim PI" & vbCrLf & _ 
       "PI = 3.1416" & vbCrLf & _ 
       " " & vbCrLf & _ 
       "Function Result" & vbCrLf & _ 
       " Result = " & expr & vbCrLf & _ 
       "End Function" 

     sc.Language = "VBScript" 
     sc.AllowUI = True 
     sc.AddCode(code) 
     Dim myparams() As Object 

     Eval = sc.Run("Result") 

    End Function 
    Sub SimpleTask() 
     Dim expr As String 
     sc.Language = "VBScript" 
     expr = "2 + 2 * 50" 
     MsgBox(sc.Eval(expr)) 
    End Sub 

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
     SimpleTask() 
     RunFunctions() 
    End Sub 
End Class