met een VBA gegevens uit meerdere Excl's in één plakken

[branba]

Mijn vraag

Goede dag,

Ik ben op zoek naar een voorbeeld waarbij ik meerdere Excel bestanden heb.
en daar met één druk op de knop van al deze bestanden gegevens die altijd
in het zelfde tabblad staan en in dezelfde cel uit kan halen en onder elkaar kan
plakken, zodat er een totaal overzicht ontstaat vanuit alle bestanden dit op x locatie staan.

Ik heb zo'n voorbeeld wel eens gezien.
Je moest dan in één cel eerst aangeven wat de 'map' is waar al die
excellen in staan. daarna was het drukken op een knop.
En alle gegevens werden onder elkaar gezet.

Ik hoop dat iemand me kan helpen met een simpel voorbeeld zodat ik
deze kan aanpassen naar mijn praktijk.

Ik hoop hier wel zulke knappe koppen te vinden.

Alvast bedankt,
Bart

[Atanamir]

Het internet staat vol met voorbeelden van VBA. Als je zoekt op iets als "VBA copy from multiple files" vind je genoeg inspiratie om te bouwen wat je precies zoekt.

Om toch nog iets nuttigs toe te voegen, hieronder klein stukje code waarmee je zou kunnen beginnen.

Indien je ergens vastloopt zijn er hier vast genoeg mensen die willen helpen met troubleshooten

Set folderDialog = Application.FileDialog(msoFileDialogFolderPicker)
folderDialog.AllowMultiSelect = False
folderDialog.Show

strPath = folderDialog.SelectedItems(1)

CurrentFile = ThisWorkbook.FullName

Set FSO = CreateObject("scripting.filesystemobject")

For Each FileInFromFolder In FSO.GetFolder(strPath).Files
'Do stuff
Next FileInFromFolder