在VBA中使用JAVASCRIPT和VBSCRIPT（1）

赵国辉

来晚了，占个座儿，听课，呵呵

赵国辉

原帖由 figfig 于 2009-9-3 00:35 发表
Sub fig8()

Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"

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

第二个过程sub bb后面不用加（）？是语法允许的么？我加上（）也能通过，是不是一种简写方法？

thtfzhaobo

受教，好贴

figfig

Sub figvb()
Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"
x.addcode "public x: sub aa(bb):x=bb*100:end sub"
x.Run "aa", 3
b = x.codeobject.x
MsgBox b
End Sub

飞云楼主

请接着多讲点，谢谢老师。

sunsoncheng

来学习一下,看了还有点不懂

figfig

Sub figvbs()
    Set x = CreateObject("msscriptcontrol.scriptcontrol")
   x.Language = "vbscript"
  [a1] = "a1=3"
  [a2] = "b1=4"
  [a3] = "msgbox a1+b1"
    For i = 1 To 3
  x.executestatement Cells(i, 1)
    Next
  End Sub

赵国辉

不要沉，好贴

figfig

Sub figvbs()
    Set X = CreateObject("msscriptcontrol.scriptcontrol")
   X.Language = "vbscript"
  X.ADDCODE "CLASS AA:PUBLIC SUB TEST():MSGBOX ""类模块"":END SUB:END CLASS"
  X.ADDCODE "SET YY=NEW AA"
  Set RR = X.EVAL("YY")
  RR.TEST
End Sub

FENGJUN

期待更多EXAMPLES......