Excel 工作簿仅在运行代码完成后显示

Question

我在 Excel 工作簿中有一个程序，它打开一个 Powerpoint 文件，更新此文件中的链接，然后关闭它。这工作正常。这是我的问题：更新链接时，会打开包含源数据的 Excel 文件。关闭 Powerpoint 后，此文件保持打开状态。我希望它关闭，因为我对许多文件重复此过程，但最终无法打开数百个 Excel 文件。

我尝试了以下方法：

WBKs=Application.Workbooks.count
For i = WBKs to 1 Step -1
    If Workbooks(i).Name<>ThisWorkbook.Name then
        Workbooks(i).close savechanges:=False
    End if
Next i

现在是奇怪的部分。每当我运行我的代码时，WBKs 总是返回 1，并且 Excel 文件只会在代码完成后弹出。如果我在调试模式下浏览我的代码，它就可以工作。一进入调试模式，工作簿就会弹出。

我尝试了Applicatio.Wait，希望文件会在一秒钟后显示。该文件仅在代码完成后显示。

我尝试了Do While Loop 来等待文件打开。 Excel 崩溃，因为我从不离开循环。

编辑：我按照建议尝试了DoEvents。也不行。

Answer 1

这只是一种解决方法，但请在宏运行 x 次后尝试使用蛮力。将该 x 存储在工作簿中的某个位置，保存。并杀死 excel 进程（所有实例，包括 self）：

Dim sKill As String

sKill = "TASKKILL /F /IM excel.exe"
Shell sKill, vbHide

在这里找到：VBA script to close every instance of Excel except itself

下次运行宏时，您将使用该x作为下一个PPT文件更新的起点。