给vba插上翅膀，---在VBA中使用RUBY

figfig

Sub yy()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

x.eval ("ary=[1, 3, 2, 2, 3].uniq  ")

Debug.Print x.eval("ary.*(',')")

End Sub

figfig

Sub yy()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

x.eval ("def sum(a, b, c) return a + b + c end")



Debug.Print x.eval("sum(2,3,4)")

End Sub

figfig

Sub yy()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

x.eval ("def weiyi(aa) return aa.uniq.*(',') end")


arr = Array(1, 1, 2, 2, 33, 4)

Debug.Print x.Run("weiyi", arr)

End Sub

figfig

Sub yy()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

x.eval ("def weiyi(aa) return aa.uniq end")


arr = Array(1, 1, 2, 2, 33, 4)

y = x.Run("weiyi", arr)


MsgBox Join(y, ",")
End Sub

figfig

Sub yy()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

y = x.eval("( 'hoge:045-111-2222 boke:045-222-2222').scan(/(\S+):([\d\-]+)/)")




MsgBox y(0, 1)
End Sub

hanter007

看介绍,好像说这个语言 在数组使用方面确,实有很大的方便和优势..

figfig

Sub yy()

Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

y = x.eval("require 'win32ole';wsh = WIN32OLE.new('WScript.Shell');wsh.Popup('过5秒自动关闭',5,0)")





End Sub

figfig

Sub yy()


arr = Range("A1:B2")


Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

x.eval ("def aa(aa) return aa.flatten! end")



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

MsgBox Join(y, ",")

End Sub

figfig

Sub yy()


arr = Range("A1:B2")


Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

y = x.eval("'foo'.center(10,'*')")




MsgBox y

End Sub

figfig

Sub yy()


arr = Range("A1:B2")


Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"

y = x.eval("require 'open-uri';arr=[];url = 'http://www.yahoo.cm/';open(url, 'r'){|io|; arr.push io.read;}")




MsgBox Join(y, vbCrLf)

End Sub