Hej,

Jag behöver ta reda på, via VBA-kod, vilka länkningar som finns i ett excel-dokument. Jag vet inte vilken länk som finns där tidigare utan den kan variera. Jag vill kunna ändra denna länk via användaren som själv ska välja filen det ska länkas från genom en listbox.

Jag vet hur man ändrar länk med kod om jag tidigare vet vilken fil dokumentet länkar till men jag vet inte hur jag tar reda på vilken fil dokumentet länkar från.

Denna kod ändrar länkningen om man tidigare vet vilket fil dokumenet länkar från...
ActiveWorkbook.ChangeLink Name:= _
"P:\Sweden\Catman Tools\PAR - Pre- and Post Analysis Report ACN\Admin Tools\PAR Cos " & Range("COS_Year").Value & ".xls" _
, NewName:= _
"P:\Sweden\Catman Tools\PAR - Pre- and Post Analysis Report ACN\Admin Tools\PAR COS " & Range("COS_Year").Value & ".xls" _
, Type:=xlExcelLinks

Tack på förhand,
Peter

Här är ett exempel för att visa upp vilka länkar som finns i en arbetsbok.

aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
Next i
End If

Tack för det snabba svaret, olyckligtvis gav det mig inte en lösning. För det första så fungerar inte koden, det enda jag kan se är att (xlOLELinks) får värdet "2" om jag kör koden rad för rad. Det beror säkert på att jag har länkar till 2 olika filer i dokumentet jag jobbar i. Däremot får "aLinks" inte något värde alls trots ovanstående och därmed går koden vidare i nästa stycke...

Förslag?

Mvh
Peter

Mitt fel!

Byt ut följande:
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
mot
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)

2:an du pratar har inget att göra med hur många länkar det finns i arbetsboken. Det är en så kallad enum.

Super - där satt den!

Tack så mycket!

Mvh
Peter