问通过长期运行的过程(DoEvents或其他方式)一致地接收用户输入

EN

干净利落地取消一个冗长的API过程是很糟糕的，我正试图找到最佳的方法来导航这个坏消息。

我使用的是excel 2016 (手工计算，没有屏幕更新)--我可能会花一些时间尝试在2010年运行这个过程，看看在接下来的几天里是否有任何问题解决(我知道减速了)。

随着时间的推移，我的过程LongProcedure已经失去了成功使用其取消功能的能力(大概是由于复杂性的增加)。它最初是不一致的，需要大量的垃圾邮件点击才能取消，现在它完全失败了。

下面是设置：

首先，LongProcedure位于一个类模块LongClass中，它的公共属性被检查为早期取消，允许它清理。

Public Sub LongProcedure()
    ' [Set up some things] '
    For Each ' [Item In Some Large Collection (Est. 300 Items)] '
        ' [Some Code (ETA 5 Seconds) Sprinkled with 3-4 DoEvents] '
        ' [Export workbook (ETA 10 Seconds)] '
        If (cancelLongProcedure) Then Exit For
    Next
    ' [Clean up some things] '
    GeneratorForm.Reset ' Let the UserForm know we're finished
End Sub

其次，我从宏中显示了一个UserForm，该宏实例化过程类并运行过程。它包含一个“运行”按钮、一个状态标签和一个“取消”按钮。

Private MyLong As LongClass

Public Sub ButtonRunLongProcedure_Click()
    Set myLong = New LongClass
    myLong.LongProcedure()
End Sub

因此，总体上这个问题是双重的。

ExportAsFixedFormat调用打开一个“发布.”进度条，冻结excel大约10秒-很好。在我所有的努力中，我还没有找到一种处理用户输入的方法。

最重要的是，DoEvents调用似乎不再做任何允许单击cancel按钮的操作。此过程不一致地冻结excel、选项卡到其他打开的程序中，并且(在不冻结时)更新状态标签。

我试过的：

在button)

• Using方法中添加doevents而不是喷洒--虽然表单仍然经常结冰，但它还是一致地更新状态标签(同时仍然不允许取消DoEvents winAPI Sleep来代替DoEvents，并且除了延迟为1、5、10、50和250 in的DoEvents之外，表单完全停止了更新而没有执行事件，而且两者都冻结了更多。

• 使用Do While循环不断地运行DoEvents，以便第二次运行DoEvents来取消表单。这个很有帮助。由于某些原因，close x按钮可以比userform按钮更一致地单击--仍然不像我想的那样一致。问题出在哪里？在发布期间，Excel将停止响应，因此，如果您单击“关闭”按钮两次，现代窗口将结束此过程。如果没有cleanup.

• Using，Application.OnTime就会定期调用DoEvents。似乎并没有改善整个

• Alt-Tabbing.的情况不，真的。由于某些原因，虽然alt选项卡偶尔只会使UserForm冻结更困难，但有时它会使其停止冻结并更新。

这是我愿意做的一个重要的重构工作，包括将长过程的想法分解成单独的方法，最初执行设置，以及在类终止时进行清理。我在寻找能提供一致结果的东西。-我将接受从excel版本到excel设置再到winAPI调用的任何东西。

谢谢你对这个问题的洞察力。