Verknüpfungen in Verzeichnis aktualisieren
30.06.2004 14:40:40
Nepo
ich hoffe es kann mir jemand helfen. Ich habe einen Ordner im Nezt bei dem ca 50 Excel Sheets miteinander verknüpft sind. Dies Verknüpfungen möchte ich nun für alle automatisch aktualisieren.
Das Makro soll alle Excel-Dateien öffen, Verknüpfungen aktualisieren und wieder abspeichern.
Hat jemand eine Idee? Was mach ich falsch?
Sub oeffenSchliessen()
Dim sfile As String
Dim spath As String
On Error GoTo errorhandler
Application.ScreenUpdating = False
Application.EnableEvents = False
spath = "\\server\" 'Verzeichnis
sfile = Dir(spath & "*.xls")
Do While sfile <> ""
Workbooks.Open _
Filename:=sfile, _
updatelinks:=True
ActiveWorkbook.Close savechanges:=True
Loop
errorhandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Anzeige