Friday, December 08, 2006

BreakLinks - Microsoft Excel

Use the following code to break the links to external source in Microsoft Excel Workbook


Sub Break_XL_Links()

Dim oXlLinks

oXlLinks = ActiveWorkbook.LinkSources(xlExcelLinks)

MsgBox UBound(oXlLinks)

For i = 1 To UBound(oXlLinks)
MsgBox oXlLinks(i)
Next i

ActiveWorkbook.Breaklink Name:=oXlLinks(1), Type:=xlLinkTypeExcelLinks

End Sub

4 comments:

  1. Know good tool which is able to recover excel files and possible more than-fix Excel file for errors,also as far as i know it is free,utility is used to process important information, such as graphics, diagrams, commercial and statistical data,recover *.xlsx, *.xlsm, *.xltm, *.xltx or *.xlam formats,tool will help you if you have to repair Excel file error message: Excel error the file is not in a recognizable format,allows choosing a file, that shown an error like: Excel error message this file is not in a recognizable format, then, you should fix Excel file for errors and proceed with its analysis,attempts to recover your document with this message: Excel error and this file is not in a recognizable format and shows a preview window.

    ReplyDelete
  2. Thanks for this... the msgbox sorted out my confusion as what contains what... thanks again!

    ReplyDelete
  3. Anonymous11:35 PM

    For solve other problems with excel files advise try-repair an Excel file,as far as i know software is free,it repairing Excel files, except the possibility to export recovered data into a new Microsoft Excel file,repairing Microsoft Excel files,will learn more about this problem and about how to repair an Excel file,will learn more about this problem and about how to repair an Excel file.

    ReplyDelete
  4. Anonymous3:43 AM

    Just make a search for Alex and see all comments made and the tool is NOT free. Just visit the website.

    ReplyDelete

StumbleUpon
Share on Facebook
Related Posts Plugin for WordPress, Blogger...
Download Windows Live Toolbar and personalize your Web experience! Add custom buttons to get the information you care about most.