Schliessen aller verknüpften Arbeitsmappen mit VBA
13.10.2003 07:52:52
Wilfried
mein Problem vom Freitag konnte ich leider noch nicht lösen:
Ich habe folgendes Makro zum Öffen aller verknüpften Arbeitsmappen
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
Nun möchte ich das Programm so umbauen, dass alle verknüpften Arbeitsmappen wieder geschlossen werden. Dabei sind die folgenden Versuche gescheitert:
Sub SchliessenAllerVerknüpftenArbeitsmappen()
Dim Links As Variant
Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
'Funktioniert nicht:
'Workbooks.Close Links(i)
'Funktioniert nicht:
'Workbooks(Links(i)).Close
Next i
Else
MsgBox "Diese Arbeitsmappe hat keine Verknüpfungen zu anderen Mappen!"
End If
End Sub
Ich würde mich freuen wenn jemand dazu eine Idee hat.
Gruss
Wilfried