View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default BreakLink method for 2007

Hi Domenick

No problem in 2007 with this macro

I see you use xlExcelLinks, I think that is your problem

Sub Break_Links_To_other_Excel_Workbooks()
'This example convert formulas that point to another Excel workbook to values
'It will not convert other Excel formulas to values.
'Note that BreakLink is added in Excel 2002
Dim WorkbookLinks As Variant
Dim wb As Workbook
Dim i As Long

Set wb = ActiveWorkbook

WorkbookLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsArray(WorkbookLinks) Then
For i = LBound(WorkbookLinks) To UBound(WorkbookLinks)
wb.BreakLink _
Name:=WorkbookLinks(i), _
Type:=xlLinkTypeExcelLinks
Next i
Else
MsgBox "No Links to other workbooks"
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Domenick" wrote in message ...
I have several workbooks in Excel 2003 that use the BreakLink method as
follows:

Worksheets(1).Calculate
ActiveWorkbook.BreakLink Name:="S:\Financial Analysis\Labor
Report2.xls", Type:= _
xlExcelLinks
ActiveWorkbook.Save

My machine was just upgraded to Excel 2007 and VBA no longer supports the
BreakLink method. Can anyone provide a workaround for the above that will
work in 2007?

Thank you.