在VBA中使用JAVASCRIPT和VBSCRIPT（1）

figfig

Sub ff()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
x.eval "function aa(aa) {return aa.sheets(1).cells(1,1)}"
Set y = x.Run("aa", ThisWorkbook)

MsgBox y
MsgBox y.Row
End Sub

figfig

Sub ff()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
x.eval "aa=new Object;aa.myname='fig7'"
Set y = x.eval("aa")

MsgBox y.myname

y.myname = "fig8"
MsgBox y.myname
End Sub

figfig

注意把代码放入WORKBOOK,不能放入模块1，至于模块1应该传入什么对象，请版主和其他高手有空研究一下，谢谢
这里传入ME,就是thisworkbook，可以调用BB函数，在模块1我试过传入APPLICATION对象，但是不行，无法调用BB
如果用VBE.PROJECTS对象又要修改设置不太实用


Private Sub kkk()
  
    Set m_sc = CreateObject("ScriptControl")
    With m_sc
        .Language = "JScript"
        .AddObject "o", Me
      
        .EVAL "o.bb()"
    End With
   
End Sub



Public Sub bb()
MsgBox "kk"
End Sub

[ 本帖最后由 figfig 于 2010-4-19 21:37 编辑 ]

lb_bn

跟着figfig老师学。
模块中可以传入thisworkbook

Private Sub kkk()

    Set m_sc = CreateObject("ScriptControl")
    With m_sc
        .Language = "JScript"
        .AddObject "o", ThisWorkbook

        .EVAL "o.bb()"
    End With

End Sub

Public Sub bb()
    MsgBox "kk"
End Sub

figfig

[ 本帖最后由 figfig 于 2010-4-19 21:44 编辑 ]

figfig

谢谢，好像不行，如果把WORKBOOK的代码删掉就会出错

HHAAMM

window对象的那些方法都不能用

Sub ava()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
x.EVAL "function aa(aa) {alert(1)}"
y = x.Run("aa", ThisWorkbook)
MsgBox y
End Sub

lb_bn

确是这样。。。

lb_bn

请问figfig老师，怎么调用传入的对象的方法。

[ 本帖最后由 lb_bn 于 2010-4-19 22:15 编辑 ]

figfig

原帖由 HHAAMM 于 2010-4-19 21:59 发表
window对象的那些方法都不能用

Sub ava()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
x.EVAL "function aa(aa) {alert(1)}"
y = x.Run("aa", ThisWorkbook)
MsgBox y
End Sub

Sub ava()
Set x = CreateObject("scriptcontrol")
Set ie = CreateObject("htmlfile")
x.Language = "jscript"

x.EVAL "function aa(aa) {aa.alert(1)}"


y = x.Run("aa", ie.parentWindow)

End Sub