VB/VBA의 XML 비 직렬화

Question

MS Access 데이터베이스에 VBA 클래스 집합이 있습니다. 새 클래스를 만들려는 데이터가있는 xml 문자열이 있습니다.

각 속성을 개별적으로 설정하는 것 외에 XML을 내 개체로 쉽게 deserialize 할 수 있습니까?

나는 TypeLib의 라이브러리

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 

를 사용하여 코드를 본 적이 있지만,이 표준 클래스 모듈과 함께 작동하지 않습니다. 429 오류가 발생합니다.

ActiveX Component Cannot Be Created 

나를 도와 줄 사람이 있습니까? 내가 도움을 줄 수 있다면 손으로 각 속성을 설정하지 않아도되지만,이 클래스 중 일부는 거대합니다!

Answer 1

당신은 결코 그 코드의 예를 tTLI & 나중에 참조처럼 TLI 그래서 늘 일, 429 오류가 소속 카테고리 라이브러리가 등록되어 있지 않기 때문에, 당신은 참조로 추가 않았다 될 수있다?

다음이 작동 한 경우 : 원하는 경우

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 

당신은 CallByName와 InvokeHook을 대체 할 수 있습니다.