Macro kladblok bestanden onder elkaar plaatsen

[NogGeenGuru]

Beste Excel Guru's

In mijn doel om alles makkelijker te maken wil ik graag meerdere Kladblok bestanden ophalen.
Ik weet inmiddels hoe ik er 1 tegelijk doe, maar dit kan vast allemaal in 1x.

nou heb ik elke keer variërend aantal bestanden dat ik wil "inladen".
hoeveel ik er nodig heb, heb ik staan in cel d1.

Ik heb al een loopje geschreven die het zou moeten doen, maar ben niet heel zeker of dit werkt. VBA is nieuw voor mij :S

index = 0
while index < d1
Dim vPath As Variant
vPath = Application.GetOpenFilename("TXT (txt) (*.txt),*.txt" _
, 1, "Selecteer het index+1 bestand", , False)
If vPath = False Then Exit Sub
"TEXT;" & vPath _
, Destination:=Range("A3"))
index+1

End Sub

nu wil ik graag dat als ik het eerste bestand heb gekozen, het volgende bestand wordt ingeladen vanaf de eerste lege cel.
kort gezegd wil ik dus eigenlijk een x aantal bestanden direct onder elkaar inladen.

weet iemand hier iets op?
en klopt mijn code zo? of snap ik er nog steeds geen zak van?

 

[Warme bakkertje]

of snap ik er nog steeds geen zak van?

Zo zou ik het nou niet direct gezegd hebben, maar ....

Het hangt er van af wat je wil bereiken. Wil je de namen van de tekstbestanden opgelijst hebben of wil je de inhoud van elk tekstbestand inlezen ?

 

[NogGeenGuru]

Het gaat mij om de inhoud van de text bestanden. Die wil ik dirct onderelkaar importeren

 

[VenA]

Het mag toch inmiddels duidelijk zijn dat het gewenst is om code tussen de codetags te plaatsen?

Hoewel het wel kan, staat een sneller methode hier.
http://www.helpmij.nl/forum/showthread.php/892021-Inhoud-van-verschillende-csv-bestanden-samenvoegen

En anders graag wat voorbeeldjes van de bestanden die je wil importeren en het gewenste resultaat.