< návrat zpět

MS Excel

Téma: Makro rss

Zaslal/a Martin0232 21.10.2022 11:37

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
elninoslov
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
avatar
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
elninoslov
Položím teda rovnakú otázku ešte raz:

"elninoslov" napsal/a:

Ten list v tých zdrojových súboroch, odkiaľ čerpáte dáta, sa volá vždy rovnako?
citovat
elninoslov(22.10.2022 10:39)#053673
elninoslov
Tu máte príklad. No či to bude možné urobiť takto rýchle, záleží na Vašej odpovedi.
Příloha: zip53673_data-zo-sltlpca-d.zip (41kB, staženo 5x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje