Breaking links in a macro

[Guest]

Is there a command to break all links at once? I have 70 spreadsheets and
need to open, save as, and break a dozen links and the links are different in
each one. I would rather not have to edit the names of all the links if there
is an easier way. Thanks!

 

[Guest]

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.
for i = lbound(astrlinks) to ubound(astrlinks)
ActiveWorkbook.BreakLink _
Name:=astrLinks(i), _
Type:=xlLinkTypeExcelLinks
Next i

End Sub

 

[Guest]

Just some added info:
Breaklink was introduced in xl2002 or xl2003 - I don't recall which.

 

[Ivan Raiminius]

Hi,

the easiest way to break links to another excel file:

Sub BreakLinks()
Dim varLinks As Variant
varLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
On Error Resume Next
Do
ActiveWorkbook.BreakLink _
Name:=varLinks(1), _
Type:=xlLinkTypeExcelLinks
Loop While Err = 0
End Sub

Regards,
Ivan