如何从打开工作簿中获取处理百分比以更新状态栏？

Question

因此，我有一些大型宏可以打开/关闭大型工作簿，但是不幸的是，这些工作簿需要一些时间才能打开/加载/计算。 当我手动打开它们时，我可以在初始屏幕上看到打开百分比：

以及文件状态栏上的计算百分比：

我想知道的是如何获取这些百分比并将其中继到主工作簿的状态栏中，以达到以下效果：

Application.DisplayStatusBar = True
Application.StatusBar = "Opening production file... " & Workbooks("Book1").LoadingPercentage & " of the way complete..."

我非常喜欢通过状态栏更新用户，因此当状态栏仅显示“正在Opening production file...并挂起20秒钟时，他们可能会担心程序冻结。 我可以有一个每秒增加一个的计数器，但这将是不一致的，并且不一定能证明程序没有冻结/崩溃。

有什么方法可以从打开的工作簿中获取此号码？ 还是有什么聪明的解决方法？ 我浏览了Workbooks("Book1").的属性Workbooks("Book1"). 而且看不到我可以使用的任何东西。

Answer 1

你不能

该指令同步运行：

Set wb = Workbooks.Open(path)

此后的指令仅在文件完成加载并设置了wb对象引用之后运行。

据我所知，无法在Excel中异步打开工作簿。 如果存在，则该API可能公开了诸如OnOpenProgress类的事件或类似事件，您可以像这样处理：

Private WithEvents app As Excel.Application

'...

Private Sub app_OnOpenProgress(ByVal path As String, ByVal percentComplete As Double, ByRef Cancel As Boolean)
    Application.StatusBar = "Opening " & path & "... (" & Format(percentComplete, "0.0%") & ")"
End Sub

但这不是AFAIK当前可能的。

我能看到的唯一方法是实现自己的返回Excel.Workbook对象的Workbooks.Open方法。 不用说，成本/收益比是天文数字（并不赞成收益）。

最好的解决方案是吸收数据并尽一切可能使工作簿文件的大小最小化，这主要是通过将数据存储在数据库中而不是在Excel工作簿中进行的。