Verwenden von VBA, um zu verhindern, dass eine Meldung beim Öffnen einer Datei angezeigt wird?

Question

Ich erstelle ein Makro, das zahlreiche Dateien öffnet, sie aktualisiert und dann speichert und schließt. Alles läuft reibungslos aber für 2 der Dateien, wenn sie geöffnet sind, erscheint eine Meldung, die lautet "Dateien laufen auf einer Einschlussliste - Titel können fehlen." Dies hält das Makro an, bis "ok" gedrückt wird. Ich habe "Application.DisplayAlerts = False" zuvor verwendet, aber es scheint hier nicht zu funktionieren. Mein Code ist wie folgt:

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 

Jede Hilfe würde sehr geschätzt werden!

Answer 1

hinzufügen

Application.EnableEvents=False 

vor der wb und setzen wieder auf true danach

Alternativ zu öffnen, zu verwenden:

Application.AutomationSecurity=msoAutomationSecurityForceDisable 

Denken Sie daran, setzen zurück, was auch immer der Benutzer ...