Directorylijst importeren Excel

[Dirk Vissers]

Ik wil graag de bestandsnamen in een directory importeren naar Excel.

In het verleden is me dat ooit gelukt, maar ik heb geen idee hoe dat ook alweer in zijn werk ging.

Is er iemand met een beter geheugen dan ik?

 

[eenreus]

Dit? Msgbox vervangen voor je sheet

Sub Folder_Namen_Ophalen()

Dim bestand As String
Dim Result As String
bestand = Dir("c:\temp\*") 'wijzigen welke je wil
Do Until bestand = ""
Result = Result & bestand & vbCr
bestand = Dir() ' volgende
Loop

MsgBox Result
End Sub

 

[Dirk Vissers]

Sorry, ik ben echt een leek voor wat betreft Visual Basic.

Kun je dit in een voorbeeldbestand bijsluiten alsjeblieft?

 

[Hoornvan]

Dirk Vissers,

Het is zo simpel.
Voeg in visubasic een Module toe en plak de code er in.
Maak desnoods een knop om hem te bedienen of start de Mcro zo.
Dat is alles.
Suc6

 

[Hoornvan]

Hier een voorbeeld

 

[Dirk Vissers]

Enorm bedankt, ik kan er mee verder.
Fijne feestdagen!

 

[Hoornvan]

Dirk Vissers,

Jij ook fijne feestdagen en een goed nieuwjaar