Saturday, April 19, 2014

Display External Links if any in the workbook

Macro to pop-up the full path of external workbooks used in the formula's 

Sub external_lins()
    Dim extlinks
    Dim j As Long
    extlinks = ThisWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(extlinks) Then
        For j = LBound(extlinks) To UBound(extlinks)
            MsgBox extlinks(j)
    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...