vb2clr

vb2clr

Die Hilfsklasse CLRHost für Visual Basic for Applications (VBA) 7.0 bietet Zugriff auf CLR-Assemblys und -Klassen (.NET Framework).

Um .NET (ehemals .NET Core) zu verwenden, sollten Sie die Verwendung von vb2net in Betracht ziehen.

Anforderungen

Visual Basic for Application 7.0 (in Microsoft Office 2010 oder höher enthalten)

• (nicht getestet) Um es unter Visual Basic 6.0 zu verwenden, schreiben Sie LongPtr in Long um und entfernen Sie alle PtrSafe Bezeichner.

Verwendung

1. Importieren Sie CLRHost.cls und ExitHandler.bas in Ihr VB/VBA-Projekt
2. Typbibliotheksverweis „Common Runtime Language Execution Engine“ (möglicherweise Version 2.4) und „mscorlib.dll“ hinzufügen.
3. Schreiben Sie Ihren Code mit CLRHost -Klasse

Hinweise und Warnungen

• Sie sollten die CLRHost Instanz freigeben oder Terminate -Methode aufrufen, wenn Sie mit der Verwendung von CLR fertig sind.
  • Aufgrund lebender CLR-Instanzen kann es zu unerwartetem Verhalten kommen, wenn Sie diese nicht freigeben oder beenden.
• Wenn Sie True an den TerminateOnExit Parameter von CLRHost.Initialize übergeben, dürfen Sie den Debugger nicht stoppen, wenn Sie die Anwendung unterbrechen oder anhalten.
  • Der Code im ExitHandler -Modul kann nicht ausgeführt werden, wenn er während der Pause angehalten wird, und die Anwendung (einschließlich VBA-Host wie Excel) kann zum Absturz führen.
• Kodierungen von VB-Dateien sind Shift-JIS; Wenn Sie Probleme mit der Kodierung haben, überprüfen Sie .utf8.* Dateien, entfernen Sie japanische Kommentare und importieren Sie sie.

Beispiel

 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

Weitere Details

• (Auf Japanisch) Verwendung von CLR(.NET) von VB

Autor

Jet (@jet2jet)

Lizenz

Neue BSD-Lizenz (oder die 3-Klausel-BSD-Lizenz)