vba Macro не ждет окончания загрузки книги из SAP

Question

У меня есть макрос, который загружает отчет из SAP, который открывается автоматически, а затем начинает работать с указанным файлом Excel.

Проблема в том, что файл немного тяжелый и его открытие занимает несколько секунд, поэтому мне нужно, чтобы код дождался открытия файла.

Редактировать: я обновил код, но все еще имею ту же проблему:

Sub WorkbookHandling()

Do While wbZus Is Nothing
    On Error Resume Next
    Set wbZus = Workbooks("MacroToolBoxDummy.xlsx")
    Set wsZus = wbZus.Worksheets(1)
    DoEvents
    On Error GoTo 0
Loop

On Error Resume Next
    wsZus.Rows(1).Delete Shift:=xlShiftUp
    wsZus.Columns("A").RemoveDuplicates Columns:=1
On Error GoTo 0

    wsZus.Columns("A:A").Select
    Selection.Copy

Как я могу дать несколько секунд, чтобы Excel открыть? Или какое условие я могу использовать, чтобы код не продолжался до тех пор, пока он не станет истинным?

Спасибо !!

Answer 1

Application.Wait (Now + TimeValue("0:00:10"))

Добавьте это над кодом, который открывает ваш Excel. Оцените время ожидания. Так что если это займет 30 секунд, измените 10 на 30