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

Question

I have a program in an Excel workbook that opens a Powerpoint-File, updates the links within this file and closes it after that. This works fine. Here is my problem: When the links are updated an Excel file with the source data is opened. After Powerpoint is closed this file stays open. I want it to get closed because I repeat this process for many files and I can't end up with hundreds of open Excel files.

I tried the following:

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

Now comes the weird part. Whenever I just run my code, WBKs always returns 1 and the Excel file only pops up after the code is finished. If I go through my code in debug mode it works. The workbook pops up as soon as I enter debug mode.

I tried Applicatio.Wait in the hope that the file would show after a second. The file only showed after the code was finished.

I tried a Do While Loop to wait until the file is open. Excel crashes because I never leave the loop.

Edit: I tried DoEvents as suggested. Does not work either.

Answer 1

This is just a workaround, but try using a brute force after x times your macro has run. Store that x somewhere in workbook, save. And kill excel process (all instances, including self) :

Dim sKill As String

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

Found here : VBA script to close every instance of Excel except itself

When running your macro next time, you will use that x as a starting point for next PPT file to update.