Использование VBA как предотвратить появление сообщения при открытии файла?

Я создаю макрос, который открывает множество файлов, обновляет их, а затем сохраняет и закрывает. Все работает гладко, однако для 2 файлов, когда они открыты появляется сообщение, которое читает » файлы, запущенные в списке включения-заголовки могут отсутствовать.»это останавливает макрос, пока не будет нажата «ok». Я использовал » приложение.DisplayAlerts = False » раньше, но здесь, похоже, не работает. Мой код выглядит следующим образом:

Public Sub Refresh_All()

Dim filepathstr As String
Dim filename As String
Dim wbk As Workbook

filepathstr = Sheet1.Range("filepath").Value

For Each cell In Sheet1.Range("workbooks")

If Not cell.Value = "" Then

    filename = cell.Value
    Application.DisplayAlerts = False
    Set wbk = Workbooks.Open(filepathstr & filename, False)


    ''''**REFRESH**''''''
    SAPBexrefresh (True)

    Application.DisplayAlerts = False
    wbk.Save
    wbk.Close False
    Application.DisplayAlerts = True

End If

Next cell

MsgBox "The Macro has finished; BW Reports are refreshed."


End Sub

Любая помощь будет очень признательна!

1 ответ

  1. Добавить

    Application.EnableEvents=False
    

    перед открытием wb и установите обратно в true

    В качестве альтернативы используйте:

    Application.AutomationSecurity=msoAutomationSecurityForceDisable
    

    Не забудьте установить все, что есть у пользователя…