MS Excel

Zdravím, nejsem programátor, nedělám často s makrem a potřeboval bych s ním pomoci. Mám několik souborů ve složce, jejich názvy se po každé mění, nejsou tedy fixní. Vím, že vždy v každém daném souboru budu mít ve sloupci "D" data (první v "D1" je datum, v ostatních jsou čísla). Nicméně nikdy nevím, kolik daných řádků ve sloupci bude. Napsal jsem si tedy loop makro, které mi každý z těchto souborů otevře. Já bych potřeboval do xxxxx říct programu: "Otevři mi daný soubor, vezmi mi z něj data ze sloupce "D", švihni mi ta data do "D1" v jiném excelovém souboru, jehož list se jmenuje "DEST". Skoč mi jeden řádek dolů. Otevři mi další soubor, zase mi z něj vezmi data a hoď mi je pod ty data předchozího souboru.

Nevíte, jak by se toto dalo udělat? Zkouším to už pár dní a nemůžu na to přijít, zkoušel jsem si i zaznamenat makro a vždycky mi to vyhodí chybu, že object error nebo jiné.

Přikládám kód.

Moc díky
M.

Sub data()

Dim fileDirectory As String
Dim filecriteria As String
Dim filename As String
Dim filetoopen As Workbook

Application.ScreenUpdating = False

fileDirectory = "C:\TRL_Romado_data\"

filename = Dir(fileDirectory)

Do While Len(filename) > 0

'set filetoopen = workbooks.open(filedirectory&filename)

Set filetoopen = Workbooks.Open(fileDirectory & filename)

xxxxxxxxx

Debug.Print filename

filename = Dir

Loop

Application.ScreenUpdating = True

End Sub

Zaslat odpověď >

elninoslov(21.10.2022 13:15)#053663

Ten list v tých zdrojových súboroch, odkiaľ čerpáte dáta, sa volá vždy rovnako?
Dáta v tých súboroch sú v D s medzerami?citovat

Martin0232(21.10.2022 13:32)#053665

Soubor, do které chci tato data dá, tak ten se jmenuje stejně. Nicméně soubory, ze kterých ta data chci vytáhnout se jmenují různě a je jich vždy více jak 30. Data jsou ve sloupci D a nejsou mezi nimi mezery.citovat

elninoslov(21.10.2022 13:35)#053667

Položím teda rovnakú otázku ešte raz:

"elninoslov" napsal/a: