BreakLinks method doesn't work.

G

Gop

I've got 2 excel workbooks - lets call them "Data" and "Control" - and
try to break all external links in the Data file from within the
Control file. In the Control file I've created following a function:

Private Function BreakLinks()
aLinks = Workbooks("Data.xls").LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
Workbooks("Data.xls").BreakLink(aLinks(i), xlLinkTypeExcelLinks)
Next i
End If
End Function

This code produces the error message: "Compile error, Expected: =".
When I changed that line to
Workbooks("Data.xls").BreakLink Name:=aLinks(i),
Type:=xlLinkTypeExcelLinks
the compiler didn't report an error, however when I try to execute the
code it comes up with the error: run-time error'1004', Method
'BreakLink' of object '_Workbook' failed"

Any idea what in either case the problem could be?

Thanks in advance...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Updatelink Error 1
Run-time error 1004: Method 'UpdateLink' 2
Button to break links, delete all vba code & save as 6
Delete VB code 7
Best way to check 2
run macro for all files in directory - error in my code 8
OLE Link Change Function 0
changelink with the name and new name as strings is failing 1

Top