vba获取当前激活窗口句柄及标题

在VBA中，可以使用Shell方法结合API函数来获取当前激活窗口的句柄和标题。

首先，我们需要声明一些API函数，如GetForegroundWindow和GetWindowText。

在模块中添加以下代码：

Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

然后，我们可以创建一个函数来获取当前激活窗口的句柄和标题，如下所示：

Function GetActiveWindowInfo() As String
    Dim hwnd As Long
    Dim title As String * 255
    Dim length As Long
    
    hwnd = GetForegroundWindow()
    length = GetWindowText(hwnd, title, 255)
    
    GetActiveWindowInfo = "窗口句柄: " & hwnd & "  窗口标题: " & Left(title, length)
End Function

现在，我们可以在VBA中调用这个函数来获取当前激活窗口的句柄和标题，例如：

Sub Main()
    Dim info As String
    
    info = GetActiveWindowInfo()
    MsgBox info
End Sub

运行以上代码，在弹出的消息框中将显示当前激活窗口的句柄和标题。

这样就可以通过VBA获取当前激活窗口的句柄和标题了，可以根据具体需求进行处理和利用。