MS Excel

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

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

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: zip

54487_vzor-kopie.zip (21kB, staženo 5x)

citovat

standa780(17.2.2023 12:31)#054488

Kopírovat je potřeba pouze hodnota, bez formátu buňky.citovat

elninoslov(17.2.2023 15:04)#054489

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: zip