如何刪除所有連結

enoch

在EXCEL 說明中找到刪除檔案中第一個連結
但如何可以一次刪除所有連結,
而當檔案中沒有連結時而不會出現錯誤訊息
   
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

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

複製代碼

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

複製代碼