ich möchte eine Dateienliste aus windows Explorer in eine Excelmappe kopieren. Möglichst als link und pro Dateiname ein Feld.
Die Dateienliste soll dann als sortierbare Liste in Excel erscheinen.
Vielen Dank für die Hilfe im voraus!
Gruß
molboet
Sub t()
Dim name As String
name = Dir("D:\Daten\A1_IPDM\TM_PRINS_0408 *.pdf")
Do While name ""
Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = name
name = Dir
Loop
End Sub
Eigentlich sollte doch dann die Dateienliste in der Excelmappe auftauchen (?)
Vielen Dank für die Hilfe!
Gruß
molboet
Sub t()
Dim name As String
name = Dir("D:\Daten\A1_IPDM\*.pdf")
Do While name ""
Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = name
name = Dir
Loop
End Sub
Gruß
Reinhard