MS Excel

Zdravím Vás a prosím o pomoc. Potřeboval makro které by mi do jednoho sešitu naimportovalo data z vícero různých sešitů. V sešitu Import dat je na listu souhrn sloupec s čísly, a tato čísla jsou názvy sešitů a z těchto sešitů bych potřeboval dostat data do sešitu Import dat.
V importovaných sešitech bude vždy na listu1 na stejnem míste tabulka s daty a tyto data bych potřeboval dostat do spravných buněk v sešitu import dat na list souhrn do již předem vytvořených buněk. V příloze jsem do listu souhrn ručne nakopíroval data ze sešitu 3154 aby bylo zřejmé která data kam mají přijít.

Již jsem si hrál s jedním makrem, které jsem našel na webu (na listu pokus)
ale bohužel se mi nepovedlo nastavit to aby importoval data jen z určitých sešitů (nyní bere všechny co jsou v dané složce) a ve správném pořadí (nyní kopíruje z jednoho sešitu všechny řádky na jeden a další sešit na další řádek)

Pro jistotu jsem do přílohy udělal schema toho co bych potřeboval aby makro umělo.

Všem předem děkuji za pomoc.

Zaslat odpověď >

Pavlus(15.8.2017 11:26)#037266

Příloha zde není ;-)...
P.citovat

meffisto(15.8.2017 11:51)#037268

Omlouvám se asi velký soubor

Příloha: zip

37268_import.zip (318kB, staženo 77x)

citovat

meffisto(18.8.2017 6:21)#037298

Zdravím, nebyl by schopen někdo s tim pomoci? Stačila by jen část kódu na to aby exel uměl otevřít složku a tam vyhledat sešity které jsou pojmenovány v buňkách již otevřeného sešitu a postupně je otvírat, to kopírování určitých buněk a vkládání bych už zkusil udělat sám...snad :)citovat

elninoslov(18.8.2017 14:35)#037304

Napr. takto.

Příloha: zip

37304_import-dat-2.zip (27kB, staženo 184x)

citovat

meffisto(22.8.2017 11:37)#037357

elnisove, děkuji ti mnohokrát, funguje to naprosto úžasně, kód je na mě celkem rozsáhlý, ale snad mu porozumím. Jsem teď na dovči tak se na to pak kouknu zblízka. A pokud bych měl problém, tak ozvu.
Ještě jednou děkuji a bude i něco na pivo :) protože mi to ulehčí práci.citovat

meffisto(29.8.2017 12:05)#037428

Rád bych se zeptal, zda lze přes VBA otvírat zástupce .xlsx souboru, nebo lze otvírat jen soubory?citovat

Hav-Ran(29.8.2017 13:54)#037429

Vyskúšal som to a zaznamenal ako makro:

Workbooks.Open Filename:="C:\zzz\HNonline_201708.xlsm"

- pričom zástupca (.lnk) mal v sebe odkaz na túto adresu.
Prakticky to teda ide, ale ty si asi chcel vo VBA zadať adresu s .lnk

takže makro
Workbooks.Open Filename:="C:\zzz\HNonline_201708 – zástupce.lnk"

ide taktiež

citovat

meffisto(31.8.2017 12:47)#037458

Jejda díky moc, hodně jednoduché řešení... mě to ani nenapadlo :)citovat

Téma: Import dat z různých sešitů pomocí VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje