vba里调用.net程序集

利用powershell调用.net程序集来实现。下面两个简单的例子，只是展示怎么去使用,并不一定是最佳方案。希望对大家有所助益吧。

示例一：查找字符串A123B76A45里面A后面的数字.我们vbs里面regex不支持肯定向前预查。借用.net实现：

Sub ss1()
Dim ws As Object '正则肯定向前预查
Set ws = CreateObject("wscript.shell")
Debug.Print ws.exec("powershell ""$matches=[System.Text.RegularExpressions.Regex]::Matches('A123B76A45','(?<=A)(\d+)');" _
& "for($i=0;$i -lt $matches.Count;$i++){$match=$matches[$i];$piece=$match.Groups[0].Value;$piece}""").stdout.readall
End Sub

运行结果如下图：

示例2是读取图片的宽度和高度。我们平时用wia.imagefile或者shell.application去读取属性。也可以利用.net里的System.Draw来获取相关信息：

Sub ss2()
Dim ws As Object '读取图片的信息宽度高度
Set ws = CreateObject("wscript.she