通过键盘快捷键调用Excel宏需要停止代码才能工作

Question

我有一个Excel宏，当通过手动点击启动和通过"iRibbon"调用时可以工作，但当通过"；键盘快捷键"；。我已经尽可能地进行了调试，以找到问题代码行，但我不知道修复方法或根本原因。当我注入一个"；停止"；在我的代码中，然后点击"；播放"；在停止之后；"键盘快捷键"；，它是有效的。如果我注释掉停止，宏将无法继续，没有错误。

有什么想法吗？

这是宏：

Sub KBTest()
Application.OnKey "+^{H}", "Testing"
End Sub

---

Sub Test()
Debug.Print "Here"

Dim URL As String
URL = "https://download.microsoft.com/download/1/4/E/14EDED28-6C58-4055-A65C-23B4DA81C4DE/Financial%20Sample.xlsx"
Dim ActiveWB As Workbook, URLWB As Workbook
Set ActiveWB = ActiveWorkbook
'Stop 'With this stop, uncommented, I can run via KBShortcut
Set URLWB = Workbooks.Open(URL, ReadOnly:=True)
Debug.Print "WB Opened"
End Sub

Answer 1

解决方案是将.Open切换到.Add。这似乎是一个错误。有关更多详细信息，请参阅本文。

https://stackoverflow.com/a/17409525/5079799