tlbinf32

I have downloaded tlbinf32.dll and added it as a reference to VBA but it doesn't seem to be working, when I try to create the following object Dim oTLI As Object Set oTLI = New TLI.TLIApplication Set oTLI = CreateObject("TLI.TLIApplication") I get the following error for both 'ActiveX component can't create object' Does anyone know how to fix this? 来源： https://stackoverflow.com/questions/36309155/not-able-to-instantiate-object-from-tlbinf32

We have a .NET app that needs to examine a folder that may contain COM libraries (DLL and OCX.) When we do encounter a COM library one thing we need to accomplish is to extract the GUID from the COM DLL or OCX. Is there a straightforward way to do this with .NET without using 3rd party libraries? JohnFx This should work for you. It requires a reference to c:\windows\system32\tlbinf32.dll , but I'm assuming that is okay because it isn't a third party component. Imports TLI 'from c:\windows\system32\tlbinf32.dll Dim reglib As TLI.TLIApplication = New TLI.TLIApplicationClass() Dim DLLPath As

I would like to iterate through members of any class in a referenced library much like is done using the Object Browser. How can this be done using VBA? Actually, how to do this is undocumented, but is possible. If your looking to implement a for..Each syntax for a collection, then you can do the following: Option Compare Database Option Explicit Public colT As New Collection Public Function NewEnum() As IUnknown Set NewEnum = colT.[_NewEnum] End Function Public Property Get NextItem() As IUnknown Attribute NextItem.VB_UserMemId = -4 Attribute NextItem.VB_MemberFlags = "40" Set NextItem = colT

I have a feeling the answer to this is going to be "not possible", but I'll give it a shot... I am in the unenviable position of modifying a legacy VB6 app with some enhancements. Converting to a smarter language isn't an option. The app relies on a large collection of user defined types to move data around. I would like to define a common function that can take a reference to any of these types and extract the data contained. In pseudo code, here's what I'm looking for: Public Sub PrintUDT ( vData As Variant ) for each vDataMember in vData print vDataMember.Name & ": " & vDataMember.value