Hsieh

¦^´_ 1# enoch

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. Do Until IsEmpty(astrLinks)
   
8.     ' Break the first link in the active workbook.
   
9.     ActiveWorkbook.BreakLink _
   
10.         Name:=astrLinks(1), _
    
11.         Type:=xlLinkTypeExcelLinks
    
12. astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    
13. Loop
    
14. End Sub

½Æ»s¥N½X