XML-Deserialisierung in VB/VBA

Question

Ich habe eine Reihe von VBA-Klassen in einer MS Access-Datenbank. Ich habe eine XML-Zeichenfolge mit Daten, mit denen ich neue Klassen erstellen möchte.

Gibt es neben der individuellen Einstellung jeder Eigenschaft eine einfache Möglichkeit, die XML in mein Objekt zu deserialisieren?

Ich habe den Code mit der TypeLib Bibliothek gesehen

Public Sub ISerializable_Deserialize(xml As IXMLDOMNode) 

    Dim tTLI As TLIApplication 
    Dim tInvoke As InvokeKinds 
    Dim tName As String 
    Dim tMem As MemberInfo 

    tInvoke = VbLet 

    For Each tMem In TLI.ClassInfoFromObject(Me).Members 

    tName = LCase(tMem.Name) 

    CallByName Me, tMem.Name, VbLet, xml.Attributes.getNamedItem(tName).Text 

    Next tMem 
End Sub 

aber dies scheint nicht mit den Standard-Klassenmodulen zu arbeiten. Ich erhalte einen Fehler 429:

ActiveX Component Cannot Be Created 

Kann mir noch jemand helfen? Ich würde lieber nicht jedes Stück von Hand setzen müssen, wenn ich es helfen kann, einige dieser Klassen sind riesig!

Answer 1

Sie nie Instanz tTLI in diesem Code & und später darauf beziehen, wie nur TLI so es wird nicht funktionieren, die 429 Fehler sein kann, weil die Typeinfo-Bibliothek nicht registriert ist, haben Sie es als Referenz hinzufügen?

Wenn ja folgendes funktioniert:

Dim TLI As TLIApplication 
Dim II As InterfaceInfo 
Dim MI As MemberInfo 

Set TLI = New TLIApplication 
Set II = TLI.InterfaceInfoFromObject(Me) 

For Each MI In II.Members 
    If MI.InvokeKind = InvokeKinds.INVOKE_PROPERTYPUT Then 
     Debug.Print MI.Name 
     TLI.InvokeHook Me, MI.Name, InvokeKinds.INVOKE_PROPERTYPUT, "PROPVALUE" 
    End If 
Next 

Sie können InvokeHook mit CallByName ersetzen, wenn Sie es wünschen.