Comments on: Property Sniffer

By: Dick Kusleika

Dick Kusleika — Tue, 14 Jun 2005 15:48:00 +0000

I had to change this line

objTLI.ContainingFile = Application.Path & "Excel9.olb"

but other than that, it works perfectly.

By: Jake Marx

Jake Marx — Mon, 13 Jun 2005 22:44:00 +0000

Dick,

Here's a bit of code that may get you part of the way there. I'm sure it could be refined/expanded on quite a bit.

Sub ListCellProperties(rrngCell As Range)
Dim objTL As TLI.TLIApplication
Dim objTLI As TLI.TypeLibInfo
Dim mi As TLI.MemberInfo
Dim sValue As String

Set objTL = New TLI.TLIApplication
Set objTLI = New TLI.TypeLibInfo

objTLI.ContainingFile = Application.Path & "Excel.exe"

For Each mi In objTLI.GetTypeInfo("Range").Members
If mi.InvokeKind = INVOKE_PROPERTYGET Then
sValue = vbNullString
On Error Resume Next
sValue = objTL.InvokeHook(rrngCell, _
mi.MemberId, INVOKE_PROPERTYGET)
On Error GoTo 0
Debug.Print mi.Name & ": " & sValue
End If
Next mi

Set objTLI = Nothing
Set objTL = Nothing
End Sub

By: jkpieterse

jkpieterse — Thu, 09 Jun 2005 15:18:00 +0000

Hi Dick,

There's a help file for this thing:

http://download.microsoft.com/download/vb60pro/update/6.0/w9×2k/en-us/tlbinfht.exe

By: Maung Yogesh

Maung Yogesh — Thu, 09 Jun 2005 13:48:00 +0000

Hi,
Would you know of any tools that can tell you all the outstanding references and variables with their values, kind of like the clr profiler? The reason is that I have a spreadsheet that is consuming an awful amount of memory (something like 1.5GB and rising) before it crashes after windows increases the paging file several times. All the tools I could find (VBACP, Aivisto) did not seem to show current variables and their values. Great blog by the way.
Thanks!

By: youssef51

youssef51 — Thu, 09 Jun 2005 10:17:00 +0000

Fun.

I notice that you can change the properties of the cell while the Sub is stopped, refresh the Locals Window and see the changes.

I'm not sure what I would do with this, but it's good to know. Cells have a lot of properties . . .

Thanks again, Dick, for this fine initiative.