kimbal

1. Sub UseBreakLink()
   
2. 
   
3.     Dim astrLinks As Variant
   
4. 
   
5.     ' Define variable as an Excel link type.
   
6.     astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
   
7.    if not isempty(astrLinks) then
   
8.     ' Break the first link in the active workbook.
   
9.     ActiveWorkbook.BreakLink _
   
10.         Name:=astrLinks(1), _
    
11.         Type:=xlLinkTypeExcelLinks
    
12.    end if
    
13. End Sub

½Æ»s¥N½X