VBA调用SetWindowText通过窗口句柄设置窗口标题失败如何解决

• 原因1：hWndApp变量存储的不是记事本主窗口句柄
  多数情况下该问题是因为枚举窗口时误抓取到了记事本客户区内部的Edit编辑控件句柄，调用SetWindowText传入Edit控件句柄时，修改的是编辑区的文本内容而非顶层窗口的标题。你可以调用GetClassNameAPI校验句柄对应的窗口类名，记事本主窗口的类名为Notepad，内部编辑控件的类名为Edit，可通过该逻辑判断句柄是否正确。
• 原因2：跨进程权限不足
  Windows 10自带的UIPI（用户界面特权隔离）机制会限制低权限进程修改高权限进程的界面属性。如果你的记事本是通过管理员权限启动，而Excel是普通用户权限启动，就会出现调用无报错但修改不生效的情况，可尝试将Excel也以管理员权限运行后再次测试。
• 原因3：未获取返回值定位具体错误
  SetWindowText调用成功时会返回非0值，失败则返回0，失败时你可以搭配GetLastErrorAPI获取具体错误码定位问题，参考测试代码如下：

' 32位Excel 365适用的API声明
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long

Sub 测试修改记事本标题()
    Dim className As String * 255
    Dim callRet As Long
    ' 校验窗口类名
    Call GetClassName(hWndApp, className, 255)
    If Left(className, InStr(className, Chr(0)) - 1) <> "Notepad" Then
        MsgBox "当前hWndApp不是记事本主窗口句柄"
        Exit Sub
    End If
    ' 调用修改标题接口
    callRet = SetWindowText(hWndApp, "The handle to notepad is " & CStr(hWndApp))
    If callRet = 0 Then
        MsgBox "调用失败，错误码：" & GetLastError
    End If
End Sub

内容的提问来源于stack exchange，提问作者gordon613