在VBA中使用JAVASCRIPT和VBSCRIPT（1）

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

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.setInterval(gg,1000);}"
y = x.Run("aa", ie.parentWindow)

MsgBox "暂时不要点确定"
End Sub

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

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

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

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

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.setTimeout(gg,1000);}"
y = x.Run("aa", ie.parentWindow)
For I = 1 To 8888888888888#
DoEvents
Next
End Sub

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

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

原帖由 HHAAMM 于 2010-4-20 00:46 发表 [img]

总想弄出个下面代码的效果，怎么会提示内存不够
[/img]
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 ...

Sub ava()
Set x = CreateObject("scriptcontrol")
Set ie = CreateObject("htmlfile")
x.Language = "jscript"
x.EVAL "var bb;function aa() {bb.range('a1')+=1;} ;function mm(cc,dd){bb=cc;dd.setInterval(aa,2000)}"
y = x.Run("mm", ActiveSheet, ie.parentWindow)
For i = 1 To 888888888888888#

DoEvents
Next
End Sub

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

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

下面代码可以看出JSCRIPT好像是多线程的，可以同时运行其他VBA程序，

Sub ava()
Set x = CreateObject("scriptcontrol")
Set ie = CreateObject("htmlfile")
x.Language = "jscript"
x.EVAL "var bb;function aa() {bb.range('a1')+=1;} ;function mm(cc,dd){bb=cc;dd.setInterval(aa,2000)}"
y = x.Run("mm", ActiveSheet, ie.parentWindow)
For i = 1 To 888888888888888#
[a2] = [a2] + 1
DoEvents
Next
End Sub

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

figfig · 发表于 2010-4-20 11:03

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

For i = 1 To 888888888888888#
[a3] = [a3] + 1
DoEvents
Next
End Sub

sgrshh29 · 发表于 2010-4-20 11:16

多线程，同时运行，突破VBA程序运行单线程限制

有这等功效？好好学习学习，仔细看看。谢谢figfig老师。

lb_bn · 发表于 2010-4-20 11:18

java太强大了．．．

lb_bn · 发表于 2010-4-20 11:20

绝对经典的多线程．
figfig老师太牛了．

sgrshh29 · 发表于 2010-4-20 11:35

原帖由 lb_bn 于 2010-4-20 11:20 发表
绝对经典的多线程．
figfig老师太牛了．

牛！强力顶。

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

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

SETINTERVAL

SETTIMEOUT

也可以这样，SETTIMEOUT

可同时运行的程序

多线程，同时运行，突破VBA程序运行单线程限制

回复 109楼 figfig 的帖子

回复 109楼 figfig 的帖子