¦p¦ó§R°£©Ò¦³³sµ²

enoch

¦bEXCEL »¡©ú¤¤§ä¨ì§R°£Àɮפ¤²Ä¤@­Ó³sµ²
¦ý¦p¦ó¥i¥H¤@¦¸§R°£©Ò¦³³sµ²,
¦Ó·íÀɮפ¤¨S¦³³sµ²®É¦Ó¤£·|¥X²{¿ù»~°T®§
   
Sub UseBreakLink()

    Dim astrLinks As Variant

    ' Define variable as an Excel link type.
    astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

    ' Break the first link in the active workbook.
    ActiveWorkbook.BreakLink _
        Name:=astrLinks(1), _
        Type:=xlLinkTypeExcelLinks

End Sub

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

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