Saturday, April 19, 2014

Break External Workbook Links

Macro to break External Workbook Links -

Sub break_external_links()
    Dim extlinks
    Dim j As Long
    extlinks = ThisWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(extlinks) Then
        For j = LBound(extlinks) To UBound(extlinks)
            ThisWorkbook.BreakLink Name:=extlinks(j), Type:=xlLinkTypeExcelLinks
    End If
End Sub

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...