Sprawdź czy takie coś będzie działać po wpisaniu w miejsce "C:\" prawidłowej ścieżki. Jak taką ścieżkę chciałbyś podawać - wskazywać, pisać z ręki?
Sub linki()
Dim odniesienie
odniesienie = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(odniesienie) Then
For i = 1 To UBound(odniesienie)
If Len(Dir(odniesienie(1))) = 0 Then ActiveWorkbook.ChangeLink odniesienie(1), "C:\", Type:=xlExcelLinks
Next i
End If
End Sub |