Import Filename

[Geoffcel]

Beste allen,

Ik zoek nu een macro dat alle file namen worden geïmporteerd bij thisworkbook staan.
Dus als voorbeeld:
ik heb in een mapje 5 foto's staan en een excel bestand. en met dat excel bestand wil ik alle namen van de foto's ophalen. die dan in a1,a2, a3 ezv komen te staan.

als ik er dan de volgende keer nog 3 foto's bij gooi in het mapje en ik gebruik de macro opnieuw dan zou ik dus willen dat de lijk geoptimaliseerd word.

Kan iemand mij verder helpen?

Groetjes GeoffCel:thumb:

 

[OctaFish]

Deze macro leest alle jpg bestanden in uit de map waar het excel bestand in staat, en zet ze netjes voor je neer.
Is dit wat je wilt?

Michel

 

[Geoffcel]

* Afgesloten *

Deze macro leest alle jpg bestanden in uit de map waar het excel bestand in staat, en zet ze netjes voor je neer.
Is dit wat je wilt?

Michel

Hey Michel,
Dat zocht ik inderdaad dankjewel. alleen wat je me stuurde werkt niet helemaal nu heb ik het verandert in

Sub FotoPad()
Dim sPad As String, sDir As String, sFile As String
Dim i As Integer

sPad = ThisWorkbook.Path & "\*.jpg"
sFile = Dir(sPad)
Range("A1").Select
ActiveCell.Value = sFile
i = 0
Do While sFile <> ""
i = i + 1
sFile = Dir
ActiveCell.Offset(i, 0).Value = sFile
Loop

End Sub

en nu werkt het wel dus echt super bedankt :thumb: