29. januar 2013 - 10:14Der er
3 kommentarer og 1 løsning
Excel - Links - alle har pludselig fået en forkert sti
Hej, jeg har i mere end 10 år holdt styr på firmaets datablade i flere versioner via et excelark med links til pdf filer. Filerne er placeret i foldere, der ligger lige ved siden af excelarket, og det har virket fint lige til nu. Pludselig en dag virkede linksene ikke mere: der var pludselig ændret i stien: C:\Users\dkjhmg1\AppData\Roaming\Microsoft\Excel\Nyt papir\NP_4550_AM_V05_dansk.pdf Den korrekte sti er: Nyt%20papir\NP_4550_AM_V05_dansk.pdf Kender I en måde, hvorpå jeg kan korrigere alle (over 1000) link på en gang, så jeg ikke behøver at korrigere dem manuelt. Og har I en ide til, hvordan det hele på en gang er blevet ødelagt? Hilsen Metuccia
Hej Erik, tak for forslaget. Jeg har prøvet det af, men søgefuntionen finder ikke teksten. Den tekst, der står i cellen er kun den sidste del af strengen. Hilsen Metuccia
Dim antalLinks As Long Dim linkAdr, hl As Integer, filNavn As String, kolonneNr As Integer, rækkeNr As Integer Rem VBA kode anbringes under det/de relevante ark Dim sti As String Public Sub ændringAfLinks() antalLinks = Hyperlinks.Count
For hl = 1 To antalLinks linkAdr = Hyperlinks(hl).Address filNavn = Hyperlinks(hl).Parent kolonneNr = Hyperlinks(hl).Parent.Column rækkeNr = Hyperlinks(hl).Parent.Row
sti = Cells(2, kolonneNr) & "\" Rem justering af link Hyperlinks(hl).Address = sti & filNavn Hyperlinks(hl).TextToDisplay = filNavn Next hl End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
