每个 XL 过程的 hWnd；每个过程都位于 Z 顺序的顶部

Question

这会连续激活每个正在运行的 XL 进程：

    Public Sub Test()
     Dim varAry()
     Dim iInstances As Long
     Dim hWndDesk As Long
     Dim hWndXL As Long
     Dim x As Long
     Dim var As Variant

     On Error Resume Next

    '---
     hWndDesk = GetDesktopWindow

     Do
      iInstances = iInstances + 1
      hWndXL = FindWindowEx(GetDesktopWindow, hWndXL, "XLMAIN", vbNullString)

      If hWndXL <> 0 Then
       ReDim Preserve varAry(iInstances)
    'Get the next Excel window
       varAry(iInstances) = hWndXL
      Else
       Exit Do
      End If
     Loop

    '---
     For x = 1 To UBound(varAry)
      MsgBox varAry(x)
      var = SwitchToThisWindow(hwnd:=varAry(x), BOOL:=False)
     Next x
exit_Sub
    End Sub

但是 GetObject() 不能连续应用于每个被激活的进程。我想使用这样的对象来计算每个进程下打开的工作簿的数量。

感谢您的帮助。

Answer 1

下面的代码将计算找到的“父”类的数量。

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
                      ByVal childAfter As IntPtr, _
                      ByVal lclassName As String, _
                      ByVal windowTitle As String) As IntPtr
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim handleCount As Integer
        Dim hWnd As IntPtr
        'ConsoleWindowClass is for "Command Prompt" / cmd.exe in Windows.
        hWnd = FindWindow("ConsoleWindowClass", vbNullString)
        If hWnd.ToInt32 <> 0 Then handleCount += 1

        Do
            hWnd = FindWindowEx(0, hWnd, "ConsoleWindowClass", vbNullString)
            If hWnd.ToInt32 <> 0 Then
                handleCount += 1
            Else
                Exit Do
            End If

        Loop

        MessageBox.Show("Found " & handleCount.ToString() & " handles...", "Results", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

End Class

从历史上看，我一直使用 Pat 或 JK 的 API Spy（从 98 年左右开始）来获取关于如何获取窗口句柄的 VBA/6 友好视图（为您生成 vb 代码，但建议对其进行编辑）

pInvoke.net 是所有 Win32 API 的重要资源，例如 FindWindow 和 FindWindowEx 用于上面的例子。检查每个链接，因为它们是有关如何正确实现这些功能的大量示例。