在VBA中使用JAVASCRIPT和VBSCRIPT（1）

figfig

Sub ava()
Set x = CreateObject("scriptcontrol")
Set ie = CreateObject("htmlfile")
x.Language = "jscript"
x.EVAL "var WD;function gg() {WD.alert(gg.caller)};function aa(aa) {WD=aa;gg();}function bb(aa) {WD=aa;gg();}"
y = x.Run("aa", ie.parentWindow)
y = x.Run("bb", ie.parentWindow)


End Sub

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

lb_bn

请问老师，scriptcontrol中如何调用像
application.run
这样的呢？

HHAAMM

Sub ava()
Set x = CreateObject("scriptcontrol")
Set ie = CreateObject("htmlfile")
x.Language = "jscript"
x.EVAL "function aa(bb,cc) {bb.range('a1')+=1;cc.setTimeout(aa(bb,cc),2000)}"
y = x.Run("aa", ActiveSheet, ie.parentWindow)
End Sub

HHAAMM

啊 递归 这样不行

lb_bn

版主，你８７楼那个代码怎么弄好的？

figfig

原帖由 HHAAMM 于 2010-4-20 00:46 发表
Sub ava()
Set x = CreateObject("scriptcontrol")
Set ie = CreateObject("htmlfile")
x.Language = "jscript"
x.EVAL "function aa(bb,cc) {bb.range('a1')+=1;cc.setTimeout(aa(bb,cc),2000)}"
y = x.Run("a ...

把bb cc 放function外面试试。用x.addobject  "cc",ie

[ 本帖最后由 figfig 于 2010-4-20 01:07 编辑 ]

HHAAMM

好像就没弄好，setTimeout的时间设置好像根本没起到作用

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 kkk()




Set ie = CreateObject("htmlfile")
Set win = ie.parentwindow
win.execscript "function aa(aa){alert(aa)}"

win.aa "bbb"

End Sub

figfig

[ 本帖最后由 figfig 于 2010-4-20 10:16 编辑 ]

figfig

原帖由 HHAAMM 于 2010-4-19 22:49 发表
Sub ava()
Set x = CreateObject("scriptcontrol")
Set ie = CreateObject("htmlfile")
x.Language = "jscript"
x.EVAL "var WD;function gg() {WD.alert(2);};function aa(aa) {WD=aa;WD.alert(1);WD.setTimeou ...

Sub kkk()




Set ie = CreateObject("htmlfile")
Set win = ie.parentwindow
win.execscript "function aa(){alert(1);};function bb(){ll=setTimeout(aa(),1000)}"

ll = win.setInterval(win.aa, 1000)
MsgBox ll
End Sub