Hente filnavn ind i en dropdownliste.

ups, der skulle stå "Hvor den viser alle de filer..."

Hvordan forestiller du dig at dropdown'en defineret - som kontrolelement eller i en Userform?

Men det skulle nok kunne lade sig gøre på den ene eller anden måde.

Hej, meget gerne hvis det kunne være som et kontrolelement.

Hvor skulle det markerede filnavn som indsættes?

Denne kode, laver en tabel med alle de *.xls der findes i samme mappe som den åbent fil, såvidt jeg kan se er du nød til at have en knappe til at opdatere den med

I din dropdown kan vælge tabel A2:A1000, og celle resultat i linked celle

Private Sub CommandButton1_Click()
    Dim FS As FileSearch
    Dim FilePath As String, FileSpec As String
    Dim i As Long
    Dim v As Variant
    Dim rTarget As Range
    Dim ToSheet As Worksheet
    Dim Data As Variant
    '******************************
    FilePath = "\\"
    'FilePath = "D:\Documents and Settings\jml\My Documents"
    FileSpec = "*.xls"
    Set ToSheet = ThisWorkbook.Worksheets("sheet1")
    '******************************
    'find excel filerne
    Set FS = Application.FileSearch
    With FS
        .LookIn = FilePath
        .Filename = FileSpec
        .SearchSubFolders = False          'skal underfoldere også søges
        .Execute
        If .FoundFiles.Count = 0 Then
            MsgBox ("Ingen filer fundet")
            Exit Sub
        End If
    End With
    Range("A1:A1000").ClearContents
    Range("A1") = "antal filer:"
    Range("B1") = FS.FoundFiles.Count
    For i = 1 To FS.FoundFiles.Count
        Set rTarget = ToSheet.Range("A1000").End(xlUp).Offset(1, 0)
        For t = 1 To Len(FS.FoundFiles(i))
            If Mid(FS.FoundFiles(i), t, 1) = "\" Then sidst = t
        Next t
        rTarget.Offset(0, 0) = Mid(FS.FoundFiles(i), sidst + 1, Len(FS.FoundFiles(i)) - sidst)
    Next i
End Sub

Denne opdatere liste hvergang musen kommer over dropdown

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call listefil
End Sub

Private Sub listefil()
    Dim FS As FileSearch
    Dim FilePath As String, FileSpec As String
    Dim i As Long
    Dim v As Variant
    Dim rTarget As Range
    Dim ToSheet As Worksheet
    Dim Data As Variant
    '******************************
    FilePath = "\\"
    'FilePath = "D:\Documents and Settings\jml\My Documents"
    FileSpec = "*.xls"
    Set ToSheet = ThisWorkbook.Worksheets("sheet1")
    '******************************
    'find excel filerne
    Set FS = Application.FileSearch
    With FS
        .LookIn = FilePath
        .Filename = FileSpec
        .SearchSubFolders = False          'skal underfoldere også søges
        .Execute
        If .FoundFiles.Count = 0 Then
            MsgBox ("Ingen filer fundet")
            Exit Sub
        End If
    End With
    Range("A1:A1000").ClearContents
    Range("A1") = "antal filer:"
    Range("B1") = FS.FoundFiles.Count
    For i = 1 To FS.FoundFiles.Count
        Set rTarget = ToSheet.Range("A1000").End(xlUp).Offset(1, 0)
        For t = 1 To Len(FS.FoundFiles(i))
            If Mid(FS.FoundFiles(i), t, 1) = "\" Then sidst = t
        Next t
        rTarget.Offset(0, 0) = Mid(FS.FoundFiles(i), sidst + 1, Len(FS.FoundFiles(i)) - sidst)
    Next i
End Sub

aah, den sidste dur hvis ikke :-)

supertekst> Det markerede filnavn må gerne indsættes i den celle, hvor man vælger filnavnet fra.

Tak jlemming, jeg prøver den lige :-)

Det passer ikke helt det jeg skrev, den tager standard bibliotektet, denne her tager den folder som den nuværende fil er gemt i

Sub filliste()
    Dim FS As FileSearch
    Dim FilePath As String, FileSpec As String
    Dim i As Long, t As Integer
    Dim v As Variant
    Dim rTarget As Range
    Dim ToSheet As Worksheet
    '******************************
    'FilePath = "\\"
    FilePath = ThisWorkbook.Path
    'FilePath = "D:\Documents and Settings\jml\My Documents"
    FileSpec = "*.xls"
    Set ToSheet = ThisWorkbook.Worksheets("sheet1")
    '******************************
    'find excel filerne
    Set FS = Application.FileSearch
    With FS
        .LookIn = FilePath
        .Filename = FileSpec
        .SearchSubFolders = False          'skal underfoldere også søges
        .Execute
        If .FoundFiles.Count = 0 Then
            MsgBox ("Ingen filer fundet")
            Exit Sub
        End If
    End With
    Range("A1:A1000").ClearContents
    Range("A1") = "antal filer:"
    Range("B1") = FS.FoundFiles.Count
    For i = 1 To FS.FoundFiles.Count
        For t = 1 To Len(FS.FoundFiles(i))
            If Mid(FS.FoundFiles(i), t, 1) = "\" Then sidst = t
        Next t
        ToSheet.Range("A1").Offset(i, 0) = Mid(FS.FoundFiles(i), sidst + 1, Len(FS.FoundFiles(i)) - sidst)
    Next i
End Sub

Hej jlemming, mange tak for hjælpen :-)  Kunne jeg få dig til at lægge et svar, så vil jeg give dig point :-)

Ingen problemer :o), velbekomme