ich suche eine Möglichkeit jeweils die erste Tabelle von Excelmappen die sich in einem gemeinsamen Pfad befinden in die aktuelle Mappe einzufügen.
Ohne jedoch alle Mappen öffnen zu müssen!
Nachfolgendes Beispiel schreibt mir jeweils den Dateinamen in nachfolgende Zellen.
Jetzt fehlt mir nur noch der Befehl jeweils die erste Tabelle dieser Mappen ins aktive Sheet einzufügen.
Vielen Dank
Maximilian
z.b.
Do While Len(datnam) > 0
If datnam <> ThisWorkbook.name Then
Cells(i, 1).Value = datnam
i = i + 1
End If
datnam = Dir$()
Loop