Break all links in the workbook
Hello, IV been trying to break links in excel workbooks by VBA But I wanted to know how to break all the links in the workbooks, no just one single link ActiveWorkbook.BreakLink Name:= _ "\\excel\Portfolios\sample.xls" _ , Type:=xlExcelLinks This code breaks single link, but is there a code to break them all. Thanks in advanc -- striker72sPosted from http://www.pcreview.co.uk/ newsgroup acces |
Break all links in the workbook
Hi there,
The LinkSources method returns an array of links so then it's just a matter of stepping backwards through each one and deleting them. I'm not sure if there's a method to delete the "links collection" (can anyone enlighten me?). Anyway, this seems to do the job. Best regards John Sub BreakAllWorkbookLinks() aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then For i = 1 To UBound(aLinks) Step -1 Debug.Print aLinks(i) Application.ActiveWorkbook.BreakLink _ Name:=aLinks(i), _ Type:=xlLinkTypeExcelLinks Next i End If End Sub "striker72s" <striker72s.1rdnry@ wrote in message ... Hello, IV been trying to break links in excel workbooks by VBA But I wanted to know how to break all the links in the workbooks, not just one single link ActiveWorkbook.BreakLink Name:= _ "\\excel\Portfolios\sample.xls" _ , Type:=xlExcelLinks This code breaks single link, but is there a code to break them all. Thanks in advance -- striker72sPosted from http://www.pcreview.co.uk/ newsgroup access |
All times are GMT +1. The time now is 01:56 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com