在VBA中使用JAVASCRIPT和VBSCRIPT（1）

赵国辉

楼主是边写边发呢？我都等不及了，如饥似渴啊

赵国辉

vbs调用api函数
anything is possible！

figfig

http://club.excelhome.net/viewth ... &extra=page%3D1

6楼  ,把条件语句作为变量，3个模块合并成一个VBS








(另外表的创建也可以放VBS,有时间再试)

[ 本帖最后由 figfig 于 2009-9-4 23:59 编辑 ]

figfig

Sub aa()
Set X = CreateObject("msscriptcontrol.scriptcontrol")
X.Language = "vbscript"
Dim ARR(2)
ARR(0) = "3"
ARR(1) = "4*6"
ARR(2) = "SIN(5)"
KK = Join(ARR, "+")
BB = X.EXECUTESTATEMENT("MSGBOX " & KK)

KK = Join(ARR, "*")
BB = X.EXECUTESTATEMENT("MSGBOX " & KK)
End Sub

figfig

Sub figtest1()
Set x = CreateObject("msscriptcontrol.scriptcontrol")
x.Language = "vbscript"
aa = "msgbox "
bb = "cc=inputbox"
For i = 1 To 4
If i Mod 2 = 0 Then
kk = aa & "  " & i
Else
kk = bb & "(" & i & ")"
End If
x.executestatement (kk)
Next
End Sub

figfig

Sub figtest1()
Set X = CreateObject("msscriptcontrol.scriptcontrol")
X.Language = "vbscript"

X.ADDCODE "Function x(s):Set y= CreateObject(""CAPICOM.HashedData""):y.Algorithm =3:" & _
        "y.Hash s:z = y.Value:x = z:End Function"
BB = X.Run("x", "FIGFIG")
MsgBox "字符 FIGFIG 加密后是: " & BB

End Sub

[ 本帖最后由 figfig 于 2009-9-5 01:13 编辑 ]

sgrshh29

figfig,好帖啊好帖！全新的思路，精品啊。经常看到库中的javascript及vbscript对象，一直不知道怎么用。这下好了，有教材了。期待更多。

[ 本帖最后由 sgrshh29 于 2009-9-5 05:53 编辑 ]

figfig

Sub JSArraySample()

    Set objJS = CreateObject("ScriptControl")
  
    With objJS
        .Language = "JScript"
        .AddCode "function JSSplit(s,d){return s.split(d);}"
      
    End With
  
    文字列 = "a,b,c,d,e"
  
    Set b = objJS.CodeObject.JSSplit(文字列, ",")
' '数组也可以随意切割了
   MsgBox b.slice(0, 1)
   MsgBox b.slice(1, 2)
   MsgBox b.slice(2, 5)

End Sub

figfig

Sub figexp()
Set js = CreateObject("ScriptControl")
  js.Language = "JScript"
  script = "'abcdefg'.match(/a/)"
  result = js.eval(script)
  MsgBox result

End Sub

sgrshh29

原帖由 figfig 于 2009-9-5 17:44 发表
Sub figexp()
Set js = CreateObject("ScriptControl")
  js.Language = "JScript"
  script = "'abcdefg'.match(/a/)"
  result = js.eval(script)
  MsgBox result

End Sub

figfig,这个应用，能不能多举几个示例。谢谢！