当前位置：首页>Excel>VBA获取Excel状态栏句柄

VBA获取Excel状态栏句柄

2026-11-10 16:18:53

VBA获取Excel状态栏句柄

Excel状态栏位于表格最底部，用于显示各种状态栏提示等信息。

Excel状态栏的窗口类为MsoCommandBar，而Windows通用控件中状态栏控件的窗口类为msctls_statusbar32。因此，晚间在尝试使用各种控件消息操作Excel状态栏时，总是得不到正确的结果。所以暂时放弃了更改Excel状态栏的想法。

不过，像是矩形、窗口类和标题等等，这些状态栏信息在获取时依旧离不开句柄。所以，晚间在此先给出Excel状态栏句柄的获取代码。

#If VBA7 And Win64 Then    Private xlMain As LongPtr    Private Excel2 As LongPtr    Private StatusBar As LongPtr#Else    Private xlMain As Long    Private Excel2 As Long    Private StatusBar As Long#End If#If VBA7 And Win64 Then    Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr#Else    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long#End IfPublic Sub GetStatusBarHwnd()    xlMain = Application.Hwnd    Excel2 = FindWindowEx(xlMain, Nuptr, "EXCEL2", vbNullString)    StatusBar = FindWindowEx(Excel2, Nuptr, "MsoCommandBar", vbNullString)    MsgBox "已获取到状态栏的句柄：" & StatusBar & "。", vbInformation, "LELEDY"End Sub