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