vba 执行网页javascript_在VBA中使用JAVASCRIPT和VBSCRIPT

在

VBA

中使用

JAVASCRIPT

和

VBSCRIPT

(

1

)

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

用

VBSCRIPT

的简单例子

Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")

x.Language = "vbscript"

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

x.Run "aa"

End Sub