在VBA中使用JAVASCRIPT和VBSCRIPT（1）

figfig

javascript有许多函数和功能可以弥补VBA不足，如正则，数组，类，等等


1)以数组为例，用JAVASCRIPT排序


Sub fig8()
Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "javascript"
arr = Array("aa", "cc", "bb", "1a")
kk = Join(arr, ",")
x.addcode "function aa(bb){x=bb.split(',');x.sort();return x;}"
cc = x.eval("aa('" & kk & "')")
MsgBox cc
End Sub

2)1)以数组为例，用JAVASCRIPT倒序
Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "javascript"
arr = Array("aa", "cc", "bb", "1a")
kk = Join(arr, ",")
x.addcode "function aa(bb){x=bb.split(',');x.reverse();return x;}"
cc = x.eval("aa('" & kk & "')")
MsgBox cc

End Sub

[ 本帖最后由 figfig 于 2009-9-3 00:36 编辑 ]

figfig

Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"

x.addcode "sub aa(): msgbox ""hello.."":end sub "
x.Run "aa"


End Sub

[ 本帖最后由 figfig 于 2009-9-3 00:25 编辑 ]

figfig

Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"

x.addcode "sub aa(): msgbox ""hello.."":end sub : sub bb:msgbox 3:end sub :sub cc: msgbox ""cc"":end sub"
x.Run "aa"
x.Run "bb"
x.Run "cc"

End Sub

lipton

前排听课，fig又出重量级帖子，期待下文

figfig

Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"

arr6 = Array("aa", "bb", "cc")
For Each arr In arr6
x.addcode "sub " & arr & "(): msgbox """ & arr & "888"":end sub : "

x.Run arr
Next


End Sub

figfig

Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"


x.addcode "function sum(x,y):sum=x+y:end function "

bb = x.Run("sum", 2, 3)
MsgBox bb



End Sub

figfig

'本例改[A1:z888]单元格为红色
Sub fig88()
Set X = CreateObject("msscriptcontrol.scriptcontrol")
X.Language = "vbscript"
X.addcode "SUB AA:XX.INTERIOR.COLORINDEX=3:END SUB "
X.ADDOBJECT "XX", [A1:z888]
X.Run "AA"

End Sub

alzeng

收藏学习，谢谢授讲！

zhao__feng

收藏学习，谢谢授讲！

byl2005

牛人啊 谢谢 向牛人学习