Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim myLinks As Variant
- Dim targetLinks As Variant
- Sub getLinks()
- Dim i As Integer
- myLinks = ThisWorkbook.LinkSources(xlExcelLinks) 'https://docs.microsoft.com/en-us/office/vba/api/excel.xllink
- 'ThisWorkbook.UpdateLink( null , xlLinkTypeOLELinks) 'https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.updatelink
- 'https://www.mrexcel.com/board/threads/vba-open-source-links.345232/
- Debug.Print "Link list:" & vbNewLine & Join(myLinks, vbNewLine) & vbNewLine & "End List" 'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/join-function
- Call filterLinks
- Call updateSpecificLinks
- MsgBox "Done!"
- End Sub
- Sub filterLinks()
- Dim criterion As String
- criterion = "Documents"
- targetLinks = Filter(myLinks, criterion, True) 'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/filter-function
- Debug.Print "Target link list:" & vbNewLine & Join(targetLinks, vbNewLine) & vbNewLine & "End List"
- End Sub
- Sub updateSpecificLinks()
- ThisWorkbook.UpdateLink (targetLinks) 'https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.updatelink
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement