Indhente adresser fra en mappe til Excel

Public Sub HentFilnavne()
Dim MyPath As String, No As Long, strFilNavn() As Variant
MyPath = "C:\Data" ' ret til din sti
    If MyPath = "" Then            ' hopper ud af programmet hvis ingen sti er valgt
            Exit Sub
    End If
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    ReDim Preserve strFilNavn(No)
    strFilNavn(No) = Dir(MyPath & "*.*")  ' Hent den første filnavn.
    Do While strFilNavn(No) <> ""  ' Start løkken
        If strFilNavn(No) <> "." And strFilNavn(No) <> ".." Then
            No = No + 1
            ReDim Preserve strFilNavn(No)
        End If
        strFilNavn(No) = Dir    ' Hent næste filnavn.
    Loop
    No = No - 1
    Range("A1:A" & UBound(strFilNavn) + 1) = Application.WorksheetFunction.Transpose(strFilNavn)
End Sub


Skriver filnavnene i kolonne A, på det aktive ark

Det er helt perfekt. Tusind tak for hjælpen.

Smid et svar, Anedi

et svar ;-))

tak for point