< návrat zpět

MS Excel

Téma: VBA - extrahování dat ze souborů ve složce rss

Zaslal/a standa780 16.2.2023 20:17

Prosím o radu, mám stovky souborů (xls), které mají stejnou strukturu listů a dat, pouze jiné hodnoty.

Potřeboval bych vytvořit makro, které mi projede složku, kde mám všechny soubory, postupně každý soubor otevře, z něj vezme jednu hodnotu na 1 listě a zkopíruje ji do A1, 1 hodnotu na 2 listě a zkopíruje ji do B1, atd. Pak se zavře soubor, posune se na další řádek a opět bude kopírovat hodnotu na 1 listě a zkopíruje ji do A2, 1 hodnotu na 2 listě a zkopíruje ji do B2, atd.

Napadá někoho něco?

Zaslat odpověď >
elninoslov(16.2.2023 21:11)#054480
elninoslov
Tak to určite nie cez otváranie súborov. Extrémne pomalé. Listy, z ktorých budete čerpať údaje, sa volajú vo všetkých súboroch rovnako? Adresa údaju je na každom liste a vo všetkých súboroch rovnaká? Kopírovať treba iba hodnotu, alebo aj formát bunky, orámovanie, farbu a pod?

Priložte prílohu s príkladom. Riešením by bolo použiť "dolovacie vzorce" (čo je fakt rýchle, bez otvárania súborov) alebo PowerQuery (pre Office 2010+, bez makra a bez otvárania súborov).citovat
standa780(17.2.2023 11:49)#054487
avatar
Ano, listy mají stejný název, buňka pro export je také všude stejná, konkrétně na listu "1B " chci kopírovat buňky C1, G290 a G291.
Tyto hodnoty chci zapsat v novém sešitě na 1 řádek, data z kopírovaná z dalšího souboru na další řádek atd atd.
PowerQuery jsem zkoušel, ale jelikož potřebují pouze hodnoty z konkrétních řádků, které jsou v rozdílných sloupcích, nedošel jsem jednoduše požadovanému výsledku.

v příloze posílám vzorový dotazník. Děkuji za pomoc
Příloha: zip54487_vzor-kopie.zip (21kB, staženo 5x)
citovat
standa780(17.2.2023 12:31)#054488
avatar
Kopírovat je potřeba pouze hodnota, bez formátu buňky.citovat
elninoslov(17.2.2023 15:04)#054489
elninoslov
Prvý nástrel. Na viac nemám čas. Možno by bolo dobré, aby na to PQ mrkol nejaký PQ fachman, páč mi to PQ ide strašne pomaly, niečo tam nerobím košér ...
Makro zatiaľ nekontroluje existenciu listu, čo sa dá cez ExecuteExcel4Macro alebo ADO urobiť tiež bez otvárania súboru. Možno keď bude čas.
Příloha: zip54489_import-niektorych-buniek-z-xls.zip (71kB, staženo 9x)
citovat
standa780(19.2.2023 19:44)#054492
avatar
moc děkuju! Budu dál rozvíjet to PQ! kdybyste měl tip na nějaký kvalitní studijní materiál ohledně PQ, budu moc rád :)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