Microsoft ExcelでVBAを使用して、ブック内のすべてのワークブックのリンクをリスト
以下のコードを標準モジュールに配置します
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