MS Excel

Tak jsem asi našel docela dobry reseni:

Sub AllFiles666()
Application.DisplayAlerts = False
Application.EnableCancelKey = xlDisabled
Dim folderPath As String
Dim Filename As String
Dim wb As Workbook
Dim sh As Worksheet
folderPath = "C:\Users\marti\OneDrive\Plocha\ZDROJ" 'contains folder path
If Right(folderPath, 1) <> "\" Then folderPath = folderPath + "\"
Filename = Dir(folderPath & "*.xlsx")
Do While Filename <> ""
Application.ScreenUpdating = False

Set wb = Workbooks.Open(folderPath & Filename)

Range("A1:AA" & Range("A" & Rows.Count).End(xlUp).Row).Copy

'Not working well here as it will be overwritten by the next file
Workbooks("POKUS.xlsm").Worksheets("List1").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues

Workbooks(Filename).Close
Filename = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Subcitovat

Všetky zošity majú 1 list, a ten s rovnakým názvom? Umiestnenie dát je rovnaké a začína na A1? Počet stĺpcov je rovnaký alebo rôzny? Riadky sa zisťujú podľa A:A?
Síce sa mi to fakt nechce robiť, ale keď to upresníte, možno ...
EDIT: Ešte sa dá použiť aj ADO aj dolovanie vzorcami.citovat

Děkuji za rady ale myslím že jsem již našel co jsem potřeboval zde:
https://stackoverflow.com/questions/43579513/vba-loop-through-files-in-folder-and-copy-paste-to-master-file

*Jen je potřeba si upravit kus kodu ktery vklada data porad pres sebe tak aby je vkladal za sebe. Pak je to skvělý kod.

MaxR_ZDROJ = Workbooks("xx.xlsm").Worksheets("xx").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("xx.xlsm").Worksheets("xx").Cells(MaxR_ZDROJ + 1, 1).PasteSpecial (xlPasteValues)citovat