How to find the Hwnd of the VB editor window of Excel (long explanation, but my quest is short)

Hello all,
LONG Explanation....but my quest is short

Keep in mind, I haven't used API's very much...

What I want to do is really quite short, this is just explained more than it needs to be...I simply want to find a window, and close it...but read this before you try and answer...I know how to do it normally...but not in this case...

My attempt:
I am trying to get the Hwnd of the VB editor window of Excel by using the FindWindow API in VBA (which is the same way I would do it with VB6)
then close it using the PostMessage API (of course still the same as VB6)...I took the PostMessage  call out of the sub in the code I posted for now...

I have posted my code below...it is just the 2 API's, the constants/variables, then the sub that simply pops up a message box giving me the Hwnd of the vb editor window while Module1 is active (which of course right now is always 0).

This works fine on any window that has a normal Hwnd (or what I know as normal), but using some 3rd party software, I have found that the Hwnd of the VB editor window also contains a letter, or maybe 2 (don't remember for sure now, but that doesn't matter how many), which I didn't know Hwnd's used letters....so I assume that since the FindWindow API returns a long variable type, that's why it doesn't work, but I don't know that for sure...

So, my question is mainly, how do I get the Hwnd of the VB editor window of Excel.
The window title I used in my code below is the exact caption of the VB editor window of my app if I have module 1 open.  That is the one I want to find the Hwnd of, and then close it...

The PostMessage API also returns a Long variable type, so I assume it will not work on this window either to close it...

Just 2 things, find that window, and close it...

How do I do that?

Thanks!
:-)
Albert


Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
    
    Private Const WM_QUIT = &H12
    Private WinHwnd As Long
 
 
'Sub that gets ran
Sub CloseWindow()
    Dim iReturn As Integer
    WinHwnd = FindWindow(vbNullString, "Microsoft Visual Basic - Test.xls - [Module1 (Code)]")
MsgBox WinHwnd
 
End Sub