在VBA中使用JAVASCRIPT和VBSCRIPT（1）

figfig · 发表于 2010-4-20 00:34

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 · 发表于 2010-4-20 00:39

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

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("aa", ActiveSheet, ie.parentWindow)
End Sub

HHAAMM · 发表于 2010-4-20 00:49

啊递归这样不行

lb_bn · 发表于 2010-4-20 00:52

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

figfig · 发表于 2010-4-20 01:02

原帖由 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 · 发表于 2010-4-20 01:05

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

figfig · 发表于 2010-4-20 09:47

原帖由 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 · 发表于 2010-4-20 09:48

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

figfig · 发表于 2010-4-20 10:15

原帖由 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

		自动登录	找回密码
密码			免费注册

[原创] 在VBA中使用JAVASCRIPT和VBSCRIPT（1）

查出是哪个函数调用本函数，

回复 94楼 figfig 的帖子

总想弄出个下面代码的效果，怎么会提示内存不够

回复 96楼 HHAAMM 的帖子

回复 98楼 lb_bn 的帖子