Добрый день, уважаемые знатоки!
Прошу помощи, т.к. в существующих темах и прочих ресурсах решения найти не удалось.
Есть макрос, который массово выкачивает из SAP Excel-файлы, сохраняет их и оставляет открытыми каждый в новом окне.
При попытке их закрытия остаются висеть все серые пустые окна Excel
Закрыть пытаемся этой частью кода:
Application.quit не помогает, т.к. закрывает все файлы - нужные и ненужные.
Прошу подсказать способ избавиться от серых пустых окон.
Спасибо!
Прошу помощи, т.к. в существующих темах и прочих ресурсах решения найти не удалось.
Есть макрос, который массово выкачивает из SAP Excel-файлы, сохраняет их и оставляет открытыми каждый в новом окне.
При попытке их закрытия остаются висеть все серые пустые окна Excel
Закрыть пытаемся этой частью кода:
Код |
---|
For i = 2 To RowQty Dim Wb As Object, filepath As String, file As String file = filepath & "frc" & Col3 & " WK " & WkNumber & ".xap" Set Wb = GetObject(file) Wb.Close False Next i |
Прошу подсказать способ избавиться от серых пустых окон.
Спасибо!