Oprette flere hyberlink samtidig?

Er der noget i alle filnavnene som gentager sig (f.eks minfil01.xls, minfil02.xls)
?

Nej, det er billeder af vores maskin tegninger, og der er ikke nogen ensartedhed overhovedt.

har du allerede en liste med drev\sti\filnavne på dine PDF filer ?

Ja, jeg har drev/sti/filnavne på alle de pdf filer jeg skal have lagt over i excel filen.

Har du prøvet med funktionen HYPERLINK(celle).
Hvis du så har navnene i en liste kan du indsætte formlen og kopiere ned.

Sæt denne makro i et modul, ret den til dine behov, inden den køres


Public Sub Hyperlinks()
    Dim A As Integer, A As Integer, strFilNavn(300), Nr As Integer

    mypath = "C:\Data\"    ' ret til din sti
    If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
    Nr = 1
    strFilNavn(Nr) = Dir(mypath & "*.Pdf")  ' Hent den første filnavn.
    Do While strFilNavn(Nr) <> ""  ' Start løkken
        If strFilNavn(Nr) <> "." And strFilNavn(Nr) <> ".." Then
            Nr = Nr + 1
        End If
        strFilNavn(Nr) = Dir    ' Hent næste filnavn.
    Loop
   
' Filerne er læst ind, nu bliver de så skrevet til det aktive ark

    RW = 2    ' Starter i række 2
    For A = 1 To Nr - 1
        Range("A" & RW).Activate    ' ret A til den kolonne du vil have dem i
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=mypath & strFilNavn(A)    ' laver hyperlinks
        RW = RW + 1    ' flytter til næste række
    Next
End Sub

Der var lige en dim fejl


Option Explicit
Public Sub Hyperlinks()
    Dim A As Integer, strFilNavn(300), Nr As Integer, mypath As String, RW As Integer
    mypath = "C:\Data\"    ' ret til din sti
    If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
    Nr = 1
    strFilNavn(Nr) = Dir(mypath & "*.Pdf")  ' Hent den første filnavn.
    Do While strFilNavn(Nr) <> ""  ' Start løkken
        If strFilNavn(Nr) <> "." And strFilNavn(Nr) <> ".." Then
            Nr = Nr + 1
        End If
        strFilNavn(Nr) = Dir    ' Hent næste filnavn.
    Loop

    ' Filerne er læst ind, nu bliver de så skrevet til det aktive ark

    RW = 2    ' Starter i række 2
    For A = 1 To Nr - 1
        Range("A" & RW).Activate    ' ret A til den kolonne du vil have dem i
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=mypath & strFilNavn(A)    ' laver hyperlinks
        RW = RW + 1    ' flytter til næste række
    Next
End Sub

Kanon, mange tak.

Mvh.
Allan Knudsen

Et svar ;-))

tak for point.