当前位置：首页>Excel>VBA如何获取Excel窗口的滚动条句柄

VBA如何获取Excel窗口的滚动条句柄

2026-04-10 18:26:49

我们使用的Excel工作簿到底是由哪些部分组成的呢？

我们又该如何获取Excel窗口的水平和垂直滚动条的句柄呢？

VBA学着学着你就会发现，有太多你感兴趣的知识了，就连这些基础的窗口组成你都不愿意错过！这里是晚间有雨伴人眠，让我们一起来看看今天要分享的实用代码吧！

一、了解两个Windows Api函数

这两个Windows Api函数分别是FindWindow和FindWindowEx，前者用于查找顶级窗口（没有父窗口的窗口），后者用于查找子窗口（父窗口的某个子窗口）。

二、了解窗口的基础信息

在你的电脑上有各种各样的应用程序，它们以矩形窗口的方式呈现。每个窗口都有它对应的身份证，只是其中的名称叫法不一样，比如身份证号码对应在窗口上叫做窗口句柄，民族对应在窗口上就做窗口类，姓名对应在窗口上叫做窗口标题，等等。Excel窗口的类名为XLMAIN，Excel滚动条的类名为NUIScrollbar。

那么有了以上的知识铺垫，我们就可以来获取Excel窗口的滚动条句柄了。以下是完整的代码，你可以直接复制它们到新的模块中使用：

#If VBA7 And Win64 Then    Private xlMain As LongPtr    Private xlDesk As LongPtr    Private Excel7 As LongPtr    Private ScrollbarH As LongPtr    Private ScrollbarV As LongPtr#Else    Private xlMain As Long    Private xlDesk As Long    Private Excel7 As Long    Private ScrollbarH As Long    Private ScrollbarV As Long#End If#If VBA7 And Win64 Then    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr    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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long    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 GetScrollbarHwnd()    xlMain = Application.hwnd    xlDesk = FindWindowEx(xlMain, Nuptr, "XLDESK", vbNullString)    Excel7 = FindWindowEx(xlDesk, Nuptr, "EXCEL7", vbNullString)    ScrollbarH = FindWindowEx(Excel7, Nuptr, "NUIScrollbar", "水平")    ScrollbarV = FindWindowEx(Excel7, Nuptr, "NUIScrollbar", "垂直")    MsgBox "已获取到Excel水平滚动条的句柄：" & ScrollbarH & "，垂直滚动条的句柄：" & ScrollbarV & "。", vbInformation, "LELEDY"End Sub