Hej, Här är ett exempel för att visa upp vilka länkar som finns i en arbetsbok. 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... Mitt fel!Lista länkningar i Excel
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,
PeterSv: Lista länkningar i Excel
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 IfSv:Lista länkningar i Excel
Förslag?
Mvh
PeterSv: Lista länkningar i Excel
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.