Search notes:

Excel Object Model: Workbook.linkSources

workbook.linkSources(tp) returns an array that contains the names of linked documents, editions, DDE or OLE servers.

The value of tp is a member of the xlLink enumeration:

`xlExcelLinks`	1	The link is to a worksheet.
`xlOLELinks`	2	The link is to an OLE source.
`xlPublishers`	5	Mac only
`xlSubscribers`	6	Mac only

option explicit

sub main() ' {

    iterateOverLinkSources xlExcelLinks , "xlExcelLinks"
    iterateOverLinkSources xlOLELinks   , "xlOLELinks"
    iterateOverLinkSources xlPublishers , "xlPublishers"   ' Macintosh only
    iterateOverLinkSources xlSubscribers, "xlSubscribers"  ' Macintosh only

end sub ' }

sub iterateOverLinkSources(tp as long, tpTxt as string) ' {

    dim lnkSrcs as variant
    dim lnkSrc  as variant

    lnkSrcs = activeWorkbook.linkSources(tp)

    if not isEmpty(lnkSrcs) then
       debug.print tpTxt
       for each lnkSrc in lnkSrcs
           debug.print "  " & lnkSrc
       next lnkSrc
    else
       debug.print tpTxt & " is empty"
    end if

end sub ' }

Github repository about-MS-Office-object-model, path: /Excel/Workbook/linkSources.vb

Excel Object Model: Workbook.linkSources

See also