确定 Excel 实例和工作簿是否具有焦点

Question

我有一个通过Application.OnTime 预定调用调用的子例程。

如何使用 Excel VBA 确定子例程的工作簿是否是 Windows 中的重点应用程序/进程？

（如果它不是活动的应用程序，那么我将运行一个代码来阻止进程一点点。如果它是活动的，我不想这样做，因为我可能正在做我不做的工作簿中的工作不想被打扰。）

Answer 1

试试这个。我测试了它，它似乎可以工作。

在模块级别：

Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long

出于测试目的，我写了这两个子：

Sub Test()
    If GetActiveWindow <> 0 Then
          'Application in focus
          Debug.Print "Focus"
    Else
          'Application not in focus
          Debug.Print " No focus"
    End If
End Sub

Sub Timer()
    Application.OnTime Procedure:="Test", EarliestTime:=Now + TimeValue("00:00:10")
End Sub

现在，试试这样：

1. 运行定时器（例如从即时窗口）。
2. 在计时器达到设置的 10 秒之前，切换到另一个应用程序，例如您的互联网浏览器。稍等片刻完成。
3. 查看控制台显示的内容：
   • 如果您停留在 Excel 窗口，控制台将显示“Focus”。
   • 如果您切换窗口，它会显示“无焦点”。