The helper class CLRHost
for Visual Basic for Applications (VBA) 7.0, providing access to CLR (.NET Framework) assemblies and classes.
Visual Basic for Application 7.0 (included in Microsoft Office 2010 or higher)
- (not tested) To use on Visual Basic 6.0, rewrite
LongPtr
toLong
and remove allPtrSafe
specifiers.
- Import CLRHost.cls and ExitHandler.bas into your VB/VBA project
- Add Type Library reference 'Common Runtime Language Execution Engine' (maybe version 2.4) and 'mscorlib.dll'
- Write your code using
CLRHost
class
- You should release the
CLRHost
instance or callTerminate
method when you finish using CLR.- Unexpected behavior may occur due to living CLR instances if you don't release or terminate them.
- If you pass
True
toTerminateOnExit
parameter ofCLRHost.Initialize
, you must not stop the debugger when breaking or pausing the application.- The code in
ExitHandler
module cannot be run when stopped during pausing, and the application (including VBA host such as Excel) may cause crash.
- The code in
- Encodings of VB files are Shift-JIS; if you have problem with encodings, check
.utf8.*
files, remove Japanese comments, and import them.
Public Sub RegexSample()
Dim host As New CLRHost
Call host.Initialize(False)
On Error Resume Next
Dim asmSys As mscorlib.Assembly
Set asmSys = host.CLRLoadAssembly("System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
Dim cobjRegex As mscorlib.Object
Set cobjRegex = host.CLRCreateObjectWithParams("System.Text.RegularExpressions.Regex", _
"([0-9])+")
Dim cobjColl As mscorlib.Object
Set cobjColl = host.CLRInvokeMethod(cobjRegex, "Matches", "10 20 50 1234 98765")
Dim vMatch As Variant
For Each vMatch In host.ToEnumerable(cobjColl)
Dim cobjMatch As mscorlib.Object
Set cobjMatch = vMatch
Debug.Print "Matches: "; host.CLRProperty(cobjMatch, "Value")
Set cobjMatch = Nothing
Next vMatch
vMatch = Empty
Set cobjColl = Nothing
Set cobjRegex = Nothing
'Call host.Terminate
Set host = Nothing
End Sub
- (In Japanese) Using CLR(.NET) from VB
jet (@jet2jet)