64位Office 365中VBA调用FindWindow报错‘函数未定义’求助

可能的原因及解决方案 #

1. 函数声明的作用域问题 #

你的Private Declare语句是私有作用域，仅能在声明它的模块内调用。如果执行SetForegroundWindow FindWindow(...)的代码位于另一个模块（比如工作表模块、ThisWorkbook模块），就会触发“Function or Sub not defined”错误。

解决方式二选一：

• 将声明改为公共作用域，让所有模块都能访问：

  Public Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Boolean
  Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
  

• 将调用代码移到包含Private Declare声明的标准模块中。

2. 窗口标题匹配问题 #

Office 365的窗口标题格式可能和旧版略有差异，你拼接的exportWB.Name & " - Excel"可能无法匹配实际窗口标题：

• 如果工作簿未保存，标题格式是BookN - Excel；如果已保存，是文件名.后缀 - Excel（比如报告.xlsx - Excel）。
• 可以先通过Debug.Print exportWB.Caption输出工作簿的实际标题，再调整匹配字符串。

3. 兼容64位的条件编译优化 #

虽然你已经使用PtrSafe，但添加条件编译语句能更好兼容不同版本的Office，避免潜在问题：

#If VBA7 Then
    Public Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Boolean
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Boolean
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

4. 确认工作簿对象有效性 #

确保exportWB是已正确赋值的有效工作簿对象，没有被提前释放或赋值错误。可以在调用前添加If Not exportWB Is Nothing Then判断。

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