如何使用VBA关闭一个弹出的连接窗口？

Application.SendKeys "%{F4}"

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Sub CloseConnectionWindow()
    Dim hWnd As Long
    Dim WM_CLOSE As Long
    
    ' 根据连接窗口的标题栏名称查找窗口句柄
    hWnd = FindWindow(vbNullString, "连接窗口标题")
    
    ' 如果找到窗口句柄，则发送关闭消息
    If hWnd <> 0 Then
        WM_CLOSE = &H10
        SendMessage hWnd, WM_CLOSE, 0, ByVal 0&
    End If
End Sub