dhlhmgc 发表于 2009-8-6 16:56:30

使用ScriptControl控件－报错

本帖最后由 dhlhmgc 于 2009-10-28 16:15 编辑

Dim $vba = ObjCreate("MSScriptControl.ScriptControl")
    $vba.Language = "VBScript"
    #$vba.AddObject "TheForm", Me = $obj
    $vba.AllowUI = True
        $vba.AddCode "Function AryFit(a(),s)" & @CRLF & _
                   "    AryFit = Filter(a,s,True,1)" & @CRLF & _
                   "End Function"

    Dim $c = $vba.Eval("1+1")

msgbox (0,"",$c)
#帮看一下哪里不对！
;=============
搞了半天原来是语法问题
VBS下的.adddcode 可不用括号，但AU3必须使用,解决方法为:
$vba.addcode ( $strCode )
页: [1]
查看完整版本: 使用ScriptControl控件－报错