verknüpfte Arbeitsmappen öffnen und schließen
Wilfried
Meine Problemstellung:
Ich möchte die verknüpften Dateien einer Arbeitsmappe der Reihe nach öffnen und gleich wieder schließen. Dabei soll die jeweilige Datei, die geöffnet wurde, auch sofort wieder geschlossen werden bevor die nächste Datei geöffnet wird.
Ich nutze derzeit folgendes Makro um ALLE Dateien zu öffen:
Sub ÖffnenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
Workbooks.Open Links(i)
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub
Und dieses Makro um ALLE Dateien wieder zu schließen:
Sub SchliessenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Dim i As Integer
Dim StDateiname As String
Dim InI As Integer
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
' Dateiname abtrennen
For InI = Len(Links(i)) To 1 Step -1
If Mid(Links(i), InI, 1) = "\" Then
StDateiname = Mid(Links(i), InI + 1, Len(Links(i)) - InI + 2)
Exit For
End If
Next InI
Workbooks(StDateiname).Close ' True fall speichern
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub
Mein Anliegen ist die beiden Makros zu kombinieren. Meine bisherigen Versuche waren allerdings erfolglos.
Ich würde mich freuen, wenn mir jemand dabei helfen könnte.
Gruß
Wilfried