在VBA中使用JAVASCRIPT和VBSCRIPT（1）

lss001

figfig 发表于 2010-4-19 21:28
注意把代码放入WORKBOOK,不能放入模块1，至于模块1应该传入什么对象，请版主和其他高手有空研究一下，谢谢
...

Sub jsapplication()
    Set sc = CreateObject("ScriptControl")
    With sc
        .Language = "jscript"
        .AddObject "wb", Application
        .Eval "wb.run('xx')"
    End With
End Sub
Sub xx()
   MsgBox "调用Application方法run"
End Sub
********************************************
Sub jsapplication()
    Set sc = CreateObject("ScriptControl")
    With sc
        .Language = "jscript"
        .AddObject "wb", Application
        .Eval "wb.Run('xx','调用Application方法run')"
    End With
End Sub
Sub xx(s)
    MsgBox s
End Sub

lss001

jackyun 发表于 2010-7-28 19:43
多谢figfig大师指点，看来这个ACTIVERUBY的功能很强大，已经在论坛中看到很多大师用ACTIVERUBY回复的精 ...

Sub jspx2() '多列指定关键字排序
    Dim x&, y&, stra$, ar
    ar = [a2:d7]: x = UBound(ar) - 1: y = UBound(ar, 2) - 1
    Set js = CreateObject("scriptcontrol")
    js.Language = "jscript"
   
    stra = "function aa(bb){var cc=new Array();aa=bb.toArray();" & _
    "for(i=0;i<=" & x & ";i++){cc=new Array();for(j=0;j<=" & y & ";j++)" & _
    "{cc[j]=aa[" & x + 1 & "*j+i];}}return cc.sort(function(x, y)" & _
    "{a=new String(x[0]);b=new String(x[3]);return (x[3]==y[3])?(a.localeCompare(y[0])):" & _
    "(b.localeCompare(y[3]))});}" 'x[3],y[3]表示依第4列为关键字排序
   
    js.AddCode stra
    br = Split(js.codeobject.aa(ar), ",")
    For i = 1 To x + 1
        For j = 1 To y + 1
            ar(i, j) = br(j + (i - 1) * (y + 1) - 1)
        Next
    Next
    [f1].Resize(x + 1, y + 1).Value = ar
End Sub

adsadsd

留个记录，刚好在学JS

gyth

学习一i下学习一下