6 thoughts on “Windows API Viewer for MS Excel”

1. Hi Dennis,

   Congrats on the very useful tool. I have added a link to the download site of Ron on my article on this subject: http://www.jkp-ads.com/articles/apideclarations.asp

2. I used to use a (VB6?) api viewer years ago. This one looks great. Thanks for creating it.

3. @J-K Thanks for Your kind words.

   @Doug You’re welcome. VB6 included an API Viewer back in the 90’s which I used too.

   I got some other stuff that may be of interest within the nearest future.

   All the best,
   Dennis

4. The majority of corporate users are now running Office 32-Bit 2010 or 2013 on 64-Bit Windows.

   This leads to a curious anomaly in the API declarations: you’ve got the ptrSafe type but not LongLong.

   You can *mostly* get away with a two-part conditional declaration for that, because most API calls never pass or return a LongLong integer.

   But there are cases where VBA7 mast declare a differing API function name between Win64 and Win32: so it’s prudent to use a three-part conditional compilation block:

   #IF VBA7 And Win64 Then ‘ 64 bit Office under 64-bit windows ‘ Use LongLong and LongPtr ‘ pick up new 64-Bit names
   #ElseIf VBA7 Then ‘ Office with VBA7 in 32-Bit environments ‘ Use LongPtr only, LongLong is not available
   #Else ‘ 32 bit Office on 32-Bit Windows without pointer-safe VBA

   #If VBA7 And Win64 Then

   Private Declare PtrSafe Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” _
   (Destination As Any, _
   Source As Any, _
   ByVal Length As LongLong)

   Private Declare PtrSafe Function GetWindowLongPtr Lib “USER32” Alias “GetWindowLongPtrA” _
   (ByVal hWnd As LongPtr, _
   ByVal nIndex As Long _
   ) As LongPtr

   #ElseIf VBA7 Then

   Private Declare PtrSafe Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” _
   (Destination As Any, _
   Source As Any, _
   ByVal Length As Long)

   Private Declare PtrSafe Function GetWindowLongPtr Lib “USER32” Alias “GetWindowLongA” _
   (ByVal hWnd As LongPtr, _
   ByVal nIndex As Long _
   ) As LongPtr

   #Else

   Private Declare Function GetWindowLongPtr Lib “USER32” Alias “GetWindowLongA” _
   (ByVal hWnd As Long,
   ByVal nIndex As Long _
   ) As Long

   Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” _
   (Destination As Any, _
   Source As Any, _
   ByVal Length As Long)

   #End If

5. Nigel,

   Thanks for Your input. When I started to create the tool I actually started with three statements. However, I dropped it because as You point it out: *mostly*.

   My target with the first public version was to release it and then take part of the feedback to see what the next update will be.

   It’s on my to-do-list but right now it has no priority.

   Once again thanks for Your kind input,
   Dennis

6. Hi Dennis,

   I just updated my main utility addin – used by me on an hourly basis and a couple of co-workers occasionally – to run in 32 and 64-bit Excel 2016. Your API Viewer was helpful in getting it to work.

   Thanks!

Posting code? Use <pre> tags for VBA and <code> tags for inline.