ich habe ein Makro, mit dem ich sämtliche Dateien in einem bestimmten Verzeichnis öffne. Aus diesen Dateien wird jeweils ein bestimmtes Blatt in die Mappe kopiert, in der ich das Makro hinterlegt habe, um die einzelnen Blätter anschließend aufzusummieren.
Problem: In manchen Einzeldateien befinden sich externe Verknüpfungen, die ich vor dem Kopieren gerne eliminieren möchte. Und ich möchte auch nicht bei jedem Öffnen der Einzeldateien gefragt werden, ob ich die Verknüpfungen aktualisieren will. Wie geht das?
So sieht mein Makro zum Öffnen bis dato aus, mit Application.DisplayAlerts = False komme ich nicht weiter ...
Sub OpenWKb()
Dim sfile As String, SPath As String
Application.ScreenUpdating = False
SPath = Worksheets("Cockpit").Range("b2").Value
If Right(SPath, 1) <> "/" Then
SPath = SPath & "\"
End If
sfile = Dir(SPath & "*.xls")
Do While sfile <> ""
Application.DisplayAlerts = False
Workbooks.Open SPath & sfile
sfile = Dir()
Application.DisplayAlerts = True
Loop
Application.ScreenUpdating = True
MsgBox "Dateien geöffnet"
End Sub
Vielen Dank vorab.
Gruß,
Matthes