EXCEL: How to break all links before saving

[Michel]

I've open an EXCEL via the following command:

XLOpen>%PathFileName%,0,XLBookHandle

The EXCEL has several links.
What's the best way to BREAK all links and save file as
PathFileName_no_links

Thanx.
... Michel

[Marcus Tettmar]

Just answered this privately so for benefit of everyone else here's some code that will attach to XL and break the links in the active workbook:

Code: Select all

//put this block at top
VBSTART
Dim xlApp 
Dim xlBook 
Sub GetXL 
  Set xlApp = GetObject(,"Excel.Application") 
  Set xlBook = xlApp.ActiveWorkbook 
End Sub

Sub BreakLinks()
  Dim astrLinks
  If Not IsEmpty(xlBook.LinkSources(1)) Then
    For Each Link in xlBook.LinkSources(1)
      xlBook.BreakLink Link, 1
    Next
  End if
End Sub
VBEND

//call these lines to break the links before saving and quitting
VBRun>GetXL
VBRun>BreakLinks

[Michel]

Brilliant-!

Thanx...