Verknüpfte Dateien öffnen und schließen

Hallo zusammen,
ich habe eine Excel Datei, die mit diversen anderen Excel Dateien verknüpft ist. Zu einer bestimmten Datei wird immer wieder der Bezug verloren, so dass nur noch #WERT! erscheint. Wenn ich dann über Daten => Verknüpfung bearbeiten => Quelle öffne die Datei öffne ziehen sich wieder die Daten. Das ist ziemlich umständlich. Bei den anderen Dateien habe ich den Eindruck, dass sich die Daten nicht immer automatisch aktualisieren.
Um das Problem zu beheben habe ich ein Makro geschrieben, welches alle verknüpften Dateien nacheinander öffnet und schließt. Im Makro habe ich den exakten Speicherort etc. genau angegeben. Leider bringt die Funktion nichts, wenn #WERT! auftaucht. Dann muss ich über Daten => Quelle öffnen die Datei öffnen. Sonst aktualisieren sich die Werte nicht.
Ich habe jetzt im Forum diesen Code gefunden:

Sub ÖffnenUndSchliessenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Dim wb As Workbook
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
'Aufruf Aktualisierung ausschalten: ", UpdateLinks:=0"
Set wb = Workbooks.Open(Links(i), UpdateLinks:=0)
'Speicheranfrage unterdrücken:
ActiveWorkbook.Saved = True
wb.Close
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub

Der ist super, leider bricht er immer ab, wenn eine der verknüpften Dateien von einem anderen Benutzer geöffnet ist.
Kann man das irgendwie umgehen? Oder noch besser: Weiß jemand, warum Excel anscheinend die Verknüpfung zu den Dateien verliert?
Die Excel liegt auf einem SharePoint, die anderen Dateien auf dem gleichen oder einem anderen SharePoint und auf zwei unterschiedlichen Netzwerklaufwerken.
Vielen Dank für Eure Hilfe und ein schönes Wochenende!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fox,
dann teste mal:

Public Sub ÖffnenUndSchliessenAllerVerknüpftenArbeitsmappen()

    Dim avntLinks As Variant
    Dim lngIndex As Long
    Dim enmAutomationSecurity As MsoAutomationSecurity

    With Application
        enmAutomationSecurity = .AutomationSecurity
        .AutomationSecurity = msoAutomationSecurityForceDisable
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    avntLinks = ThisWorkbook.LinkSources(xlExcelLinks)

    If Not IsEmpty(avntLinks) Then

        For lngIndex = LBound(avntLinks) To UBound(avntLinks)

            Call ThisWorkbook.OpenLinks(avntLinks(lngIndex), ReadOnly:=True, Type:=xlExcelLinks)
            Application.CalculateFullRebuild
            Call Workbooks(Workbooks.Count).Close(SaveChanges:=False)

        Next
    End If

    With Application
        .AutomationSecurity = enmAutomationSecurity
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Gruß
Nepumuk

Option Explicit Public Sub RefreshLinks() Static sialngIndex As Long Dim avntLinks As Variant Dim enmAutomationSecurity As MsoAutomationSecurity With Application enmAutomationSecurity = .AutomationSecurity .AutomationSecurity = msoAutomationSecurityForceDisable .EnableEvents = False End With avntLinks = ThisWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(avntLinks) Then If sialngIndex = 0 Then sialngIndex = LBound(avntLinks) If sialngIndex

Beliebteste Forumthreads (12 Monate)

Verknüpfte Dateien öffnen und schließen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread