Elenco di tutti i collegamenti della cartella di lavoro in una cartella di lavoro utilizzando VBA in Microsoft Excel

Sub ListLinks()

Dim aLinks As Variant

aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)

If Not IsEmpty(aLinks) Then

Sheets.Add

For i = 1 To UBound(aLinks)

Cells(i, 1).Value = aLinks(i)

Next i

End If

End Sub