Excel e collegamenti a fogli esterni

Quante volte vi è capitato di dover ripristinare i collegamenti a file esterni perchè avete spostato/modificato i vostri file xls?
A me capita spesso se considerate che implemento i fogli sul mio pc e poi li invio in posta elettronica al cliente.
Sono stufo di sentirmi dire sempre che i link non funzionano.
Ho deciso di risolvere il problema alla radice.
L’idea è quella di mettere tutti i files in una cartella e aggiornare i link all’avvio del workbook.

Option Explicit

Sub AggiornaLink()
‘ Per ogni link contenuto nel workbook
‘ Sostituiamo il path del file sorgente
‘ Con quello del workbook corrente

Dim aLinks() As Variant
Dim i As Integer
Dim aPath() As String

aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
  For i = 1 To UBound(aLinks)
    aPath = Split(aLinks(i), “\”)
    ActiveWorkbook.ChangeLink Name:= _
    aLinks(i), NewName:= _
    ActiveWorkbook.Path & “\” & aPath(UBound(aPath)), Type:=xlExcelLinks
  Next i
End If
End Sub

Leave a comment

0 Comments.

Leave a Reply


[ Ctrl + Enter ]