auch wenn es von der "Konkurrenz" ist, schau dir den Thread mal an.
Gruss Rainer
wenn du die function unten mit deinem ordner als path und "*.*" als strpattern aufrufst, liefert sie dir ein array zurück, das alle dateinamen im ordner enthält. dann kannst du sie nacheinander in excel einfügen, oder öffnen, oder...
mfg
Private Function FileArray(path As String, strPattern As String)
'routine liefert array aus allen dateien im verzeichnis path zurück
Dim arrDateien()
Dim strDatei As String
strDatei = Dir(path & strPattern)
Do While (strDatei <> "")
i = i + 1
ReDim Preserve arrDateien(1 To i)
arrDateien(i) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function
hier eine Kombination aus Micha's Vorschlag und eines "alten" Makros meinerseits:
Gruss Rainer