vb2clr

vb2clr

Visual Basic for Applications (VBA) 7.0 のヘルパー クラスCLRHost 、CLR (.NET Framework) アセンブリおよびクラスへのアクセスを提供します。

.NET (以前の .NET Core) を使用するには、vb2net の使用を検討してください。

要件

Visual Basic for Application 7.0 (Microsoft Office 2010 以降に含まれる)

• (テストされていません) Visual Basic 6.0 で使用するには、 LongPtr Longに書き換えて、すべてのPtrSafe指定子を削除します。

使用法

1. CLRHost.cls と ExitHandler.bas を VB/VBA プロジェクトにインポートします
2. タイプ ライブラリ リファレンス「Common Runtime Language Execution Engine」(おそらくバージョン 2.4) と「mscorlib.dll」を追加
3. CLRHostクラスを使用してコードを記述します。

注意事項と警告

• CLR の使用が終了したら、 CLRHostインスタンスを解放するか、 Terminateメソッドを呼び出す必要があります。
  • CLR インスタンスを解放または終了しないと、生きている CLR インスタンスが原因で予期しない動作が発生する可能性があります。
• CLRHost.InitializeのTerminateOnExitパラメーターにTrue渡す場合、アプリケーションを中断または一時停止するときにデバッガーを停止してはなりません。
  • 一時停止中に停止すると、 ExitHandlerモジュール内のコードが実行できなくなり、アプリケーション (Excel などの VBA ホストを含​​む) がクラッシュする可能性があります。
• VB ファイルのエンコードは Shift-JIS です。エンコードに問題がある場合は、 .utf8.*ファイルを確認し、日本語のコメントを削除してインポートしてください。

例

 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

さらに詳しく

• VBからCLR(.NET)を使う

著者

ジェット (@jet2jet)

ライセンス

新しい BSD ライセンス (または 3 条項 BSD ライセンス)