< návrat zpět

MS Excel


Téma: Kopírování dat z více soub. do jednoho listu rss

Zaslal/a 6.5.2015 14:44

Dobrý den,

chtěl jsem se zeptat na VBA kód. Mám cca 380 xls souborů se stejným obsahem - tabulkou (o 14 řádcích a 50 sloupcích, oblast B13:AU27) a potřeboval bych přes VBA kód, kdy by se přes import (z jednoho adresáře) ten obsah z dané tabulky z jednotlivých souborů nahrál na jeden list v jiném souboru (souhrnu). Umístění tabulky v souborech je stejné. A pokud možno, aby se ty data na cílovém listu skládaly pod sebe. Jde vytvořit nějaký VBA kód?

Děkuji.

Tomáš

Příloha: zip24791_1.zip (31kB, staženo 36x)
Zaslat odpověď >

#024793
avatar
Zkuste v příloze, makro na listu souhrn v module 2, s názvem "Importuj_soubory". Jen pro kontrolu jsem si tam dopsal do sloupce prvního a posledního hodnoty. Kopíruje jen hodnoty.
Příloha: zip24793_kopiruj_z_vice_souboru.zip (52kB, staženo 177x)
citovat
#024807
avatar
Dobrý den,

děkuji za soubor data nahraje, jen mě napadá to, že pokud ten každý soubor bude obsahovat více listů (které jsou pojmenovány - list 1 =ŽÁDOST, List 2 = Výrobna 1, List 3 = Výrobna 2 atd.. První list je úvodní s identifikací. List 2 až List 4 (Výrobna 1 až Výrobna 3)jsou listy na kterých jsou samotná data. A mě jde o to, aby se do té souhrnné tabulky nahrály data z listu s názvem Výrobna 1 až Výrobna 3. A druhou podpodmínkou je to, že některý ten soubor má vyplněny data jen za jednu výrobnu a některý 3 výrobny.

Jde to nějakým způsobem zadat, aby hledal data jen v listech s názvem Výrobna 1, Výrobna 2 atd... a v případě, že v daném souboru budou vyplněny data z dvou výroben aby nahrál oba listy?

Děkuji mnohokrát za ochotu.citovat
#024832
avatar
Nevím, jestli jsem dobře pochopil, tak v příloze:
Všechny soubory včetně souhrn.xls, musí mít 3 listy s názvy jako v příloze.
Kopírují se všechny řádky, které mají vyplněnu nějakou hodnotu v oblasti tabulky, ve sloupci B (v hlavičce tabulky je A). Kopíruje se odpovídající list do odpovídajícího listu souboru souhrn. Tak zkuste.
Příloha: zip24832_2_kopiruj_z_vice_souboru.zip (57kB, staženo 66x)
citovat
#024849
elninoslov
Urobil som niečo inakšie. Pracuje to so zatvorenými súbormi. Teda sa neotvárajú kvôli importu. Čas importu zo 400 súborov je cca 12 sekúnd. Zošity nemusia mať všetky listy. Makro je popísané.
Iste by to išlo urobiť aj inak (ADODB, SQL, ...). Škoda, že na zatvorený zošiť nefunguje EVALUATE.
Na *.xlsx som netestoval, iba na *.xls. V adresári so súbormi nesmú byť iné súbory ako excelácke.
Příloha: rar24849_souhrn.rar (20kB, staženo 118x)
citovat
#024890
avatar
Dobrý den,

děkuji všem za ochotu, možná jsem se špatně vyjádřil v těch předchozích komentářích, ale problematika je taková, že je cca 375 souborů o stejném počtu listů (s tímto názvem: list 1 =ŽÁDOST, List 2 = Výrobna 1, List 3 = Výrobna 2, list 4 = Výrobna 3 atd.. První list je úvodní s identifikací. List 2 až List 4 jsou listy na kterých jsou samotná data) a já bych potřeboval, aby se z těch 375 souborů nakopírovali data (List 2až list 4) do jedné souhrnné tabulky (na jednom listě). Aby toho nebylo málo, v některých zdrojových souborech jsou vyplněny jen 2 listy (List 1 a List 2), v některých jsou vyplněny 3 listy (list 1 až List 3) a někdy dokonce 4 listy (List 1 až List 4). Napadá mě, že by bylo dobré se chytit jedné buňky (na listech 2 až list 4) a pokud nebude v daném listě vyplněna, tak by se do té souhrnné tabulky nekopírovaly data (mohla by to být třeba buňka B13).

A výstupem by měla být jedna velká tabulka, kde budou pod sebou data ze všech 375 zdrojových souborů (Listů 2 až list 4 - podle množství vyplnění daných listů).

Děkuji mnohokrát za ochotu...citovat
#024899
elninoslov
Moje nervy, jednoznačnejší popis problému, a bolo by to ľahšie.

No vyskúšaj teda toto. Testuje to existenciu listov "Výrobna 1", "Výrobna 2", "Výrobna 3", "Výrobna 4". Overí, či je v B13 hodnota. Potom skopíruje data do jediného listu "Souhrn" v zošite "Souhrn.xls", a to v takom poradí, že najskôr všetky validné listy v spomínanom poradí z jedného súboru, až potom to isté z ďalšieho súboru. Všetko pod seba do jednej tabuľky.
Příloha: rar24899_souhrn2.rar (166kB, staženo 117x)
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