在VBA中使用JAVASCRIPT和VBSCRIPT（1）

HHAAMM · 发表于 2010-4-19 22:32

传进去就有了

figfig · 发表于 2010-4-19 22:34

原帖由 lb_bn 于 2010-4-19 22:14 发表
请问figfig老师，怎么调用传入的对象的方法。

Sub ava()
Set x = CreateObject("scriptcontrol")

x.Language = "jscript"
x.EVAL "function aa(aa) {aa.sheets(1).cells(1,1)=2}"

y = x.Run("aa", ThisWorkbook)

End Sub

figfig · 发表于 2010-4-19 22:39

Sub ava()
Set x = CreateObject("scriptcontrol")

x.Language = "jscript"
x.EVAL "function aa(aa) {aa.name='b'}"

y = x.Run("aa", ActiveSheet)

End Sub

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

gg()怎么没反应呀

HHAAMM · 发表于 2010-4-19 23:03

Sub ava()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
x.EVAL "function aa(aa) {aa.range('a1')='sorry'}"
y = x.Run("aa", ActiveSheet)
End Sub

HHAAMM · 发表于 2010-4-19 23:08

Sub ava()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
x.EVAL "function aa(aa) {for (var x=1;x<10;x++){ aa.range('a' +x)=x}}"
y = x.Run("aa", ActiveSheet)
End Sub

figfig · 发表于 2010-4-19 23:27

[ 本帖最后由 figfig 于 2010-4-19 23:36 编辑 ]

HHAAMM · 发表于 2010-4-19 23:35

setTimeout('gg()',1000)好像还是没起作用

HHAAMM · 发表于 2010-4-19 23:35

90楼修改后ok

[ 本帖最后由 HHAAMM 于 2010-4-19 23:37 编辑 ]

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

谢谢老师。。。。。

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

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

回复 83楼 figfig 的帖子

回复 85楼 figfig 的帖子