VBA Öffnen aller Verknüpfungen in Bereich
16.05.2019 13:04:32
Pascal
ich habe einen Code zusammen gebastelt der mir alle Verknüpfungen in der Arbeitsmappe öffnet aktualisiert, speichert und schließt.
Soweit so gut.
Nun hätte ich aber ein paar punkte die mir das Leben erleichtern könnten.
1.) es kommt bei einigen Excel Dateien die er öffnet zu folgender Fehlermeldung:
"Einige der Verknüpfungen in ihrerer Arbeitsmappe lassen sich nicht aktualisieren."
Dort soll das Makro bitte automatisch auf "Weiter" klicken.
2.) Ich würde gerne auswählen wollen in welchem Bereich er die Verknüpfungen öffnet die er findet. Da ich eine Arbeitsmappe oft mehrmals verknüpft habe.
Ich habe leider schon alles versucht aber ich komme nicht drauf.
Mein wissen ist auch leider sehr begrenzt was VBA angeht.
Es wäre super wenn mir jemand helfen könnte. :)
Hier der Code:
Sub ÖffnenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
Application.DisplayAlerts = False
Workbooks.Open Links(i), UpdateLinks:=3
ActiveWorkbook.Close SaveChanges:=True
Next i
End If
End Sub
Anzeige