OpenLinks
09.01.2003 15:01:30
Alfons Riek
Der erste Durchlauf und das dazugehörige Öffnen funkioniert, aber beim zweiten Durchlauf kommt der Fehler.
Wer weiß Rat?
Private Sub AlleLinksÖffnen_Click()
Dim arLinks As Variant
Dim intIndex As Integer
arLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(arLinks) Then
For intIndex = LBound(arLinks) To UBound(arLinks)
ActiveWorkbook.OpenLinks arLinks(intIndex)
Next intIndex
Else
MsgBox "The active workbook contains no external links."
End If
End Sub
Anzeige