你这个是需要VB计算表达式的值,但你的表达式又是以字符串形式表现的 可以先引用 Microsoft Script Control 1.0,一般在%windir%\system32\msscript.ocx Dim s As New ScriptControl s.Language = "vbscript" Debug.Print s.Eval("20*2") Set s = Nothing也可以不引用该控件,采用后期绑定的方法 Dim o As Object Set o = CreateObject("MSScriptControl.ScriptControl") o.Language = "vbscript" Debug.Print o.Eval("20*2") Set o = Nothing
可以先引用 Microsoft Script Control 1.0,一般在%windir%\system32\msscript.ocx
Dim s As New ScriptControl
s.Language = "vbscript"
Debug.Print s.Eval("20*2")
Set s = Nothing也可以不引用该控件,采用后期绑定的方法
Dim o As Object
Set o = CreateObject("MSScriptControl.ScriptControl")
o.Language = "vbscript"
Debug.Print o.Eval("20*2")
Set o = Nothing