在vba里使用PERL

figfig · 发表于 2010-5-6 21:42

Sub perl()
arr = Array(1, 2222, 3)

arr = Join(arr, " ")
Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"

x.eval "@a=qw(" & arr & ")"
Debug.Print x.eval("@a[1]")

End Sub

figfig · 发表于 2010-5-6 21:58

Sub perl()

[a1] = 1
[a2] = 2
[a3] = 3333
Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
For i = 1 To 3
x.eval "push @a," & Cells(i, 1)

Next
Debug.Print x.eval("@a[-1]")
End Sub

figfig · 发表于 2010-5-6 22:32

Sub perl()

[a1] = 11
[a2] = 21
[b1] = 12
[b2] = 22

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

For i = 1 To 2
For j = 1 To 2
x.eval "push @a," & Cells(i, j)
Next
x.eval "push @b,[@a];@a=();"
Next

Debug.Print x.eval("$b[1][0]")

End Sub

lrf2003 · 发表于 2010-5-6 23:17

领教了，盼望更精彩的内容。

aef25uuu · 发表于 2010-5-7 01:24

呵呵，没想到VBA也能调用我最喜欢的语言：perl.
一直以来在VBA中使用正则表达式我只能调用VBS，
但完全没办法达到perl的简洁和效果。
如果需复杂点的数据结构就直接改用perl了，
现在好了，谢谢楼主的分享！
相信VBA与perl的结合可以让我花更少的时间实现更强大的功能。

lgcmeli · 发表于 2010-5-7 09:05

太高。
学习。
研究。

clarkldq · 发表于 2010-5-7 10:34

占位学习。多谢。

tangcong · 发表于 2010-5-7 12:22

学习
先占位

rachel10 · 发表于 2010-5-7 15:18

学习~~~~~~

AVEL · 发表于 2010-5-7 15:28

又是一门新知识啊
需要学习学习

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

[原创] 在vba里使用PERL

传入VBa数组

传入单元格数值

把2维数组（range）传入PERL

学习