MS Excel

Ahoj.
Prosím můžete mi někdo poradit s importem dat?
Potřeboval bych importovat data z řádků 1 až 35 z listu jménem „DATA“ v souboru jménem „IMPORT_01_nov“, který je na síti do souboru DATABAZE.
Makro dokážu nahrát tak, že mi vždy tento soubor importuje data do souboru DATABAZE, který mám zrovna otevřený a do kterého potřebuji data nakopírovat. Jenže soubor „IMPORT_01_Nov“ mění svůj název na „IMPORT_02_Nov“ atd. Název listu DATA zůstává stále stejný.
Potřeboval bych, aby se vždy při spuštění makra pro kopírování (import) z jiného souboru, umístěného v adresáři na síti, zobrazila výzva k zadání názvu souboru z kterého chci provést kopírování. Jméno listu v souboru je stále stejné.
A ještě jedna věc. Jelikož těchto importů bude více a všechny musí být do jednoho listu, tak bych ještě potřeboval, aby se importovaná data řadila pod sebe. Tzn. po importu prvních dat s 35 řádky do souboru „DATABAZE“ se automaticky při dalším importu data zkopírovala na řádek pod předtím nakopírovaná data.
Předem děkuji za pomoc.

Zaslat odpověď >

AL(13.11.2012 20:35)#010302

Pre zobrazenie dialógového okna pre výber súboru môžeš použiť napr. inštrukciu Application.FileDialog
zadaj si to do nápovedy, alebo Googlu, tam zistíš, ako sa s tou inštrukciou pracuje. Vracia názov súboru, prípadne adresára, túto hodnotu potom použiješ pre samotné otvorenie súboru, z ktorého chceš dáta načítať.
Kopírovanie z niekoľkých zdrojov pod seba poriešiš napr. tak, že v cykle vždy odskočíš do prvej prázdnej bunky nachádzajúcej sa pod už vyplnenou oblasťou, alebo zistíš takto v cykle adresu prvej prázdnej bunky a kopíruješ potom do nej.citovat

Milan-D(13.11.2012 21:33)#010305

Pridal jsem do tveho souboru jedno makro. Rad bych, kdybys zkusil jestli to funguje - tedy zdali to vrati data z externiho souboru. Jestli ano, tak ti poslu cele makro, tak jak jsi ho popsal

Příloha: zip

10305_databazex.zip (14kB, staženo 26x)

citovat

Miky.Miguel(14.11.2012 9:04)#010309

Makro funguje, jen se data z externího souboru nakopírovala bez prvního řádku, což nevadí.citovat

Milan-D(14.11.2012 9:19)#010311

Tak fajn.
Ale vidim drobny rozpor: ve zdrojovem souboru pises, ze je 35 radku, ale v priloze je tech radku min. Pak tam mas taky ve sloupci A nazev zdrojoveho souboru a vubec ta data zacinaji az ve tretim sloupci. Tedy potreboval bych vedet, jak ma vypadat vysledek po stazeni ze dvou ruznych zdrojaku. Ma ten nazev souboru byt v kazdem radku (abys mohl odlisit/filtrovat), hodilo by se i zahlavi, ma byt mezi jednotlivymi dny volny radek, podle ktereho sloupce jednoznacne zjistim posledni radek (abych vedel kam pripisovat dalsi data)... Tedy zkus poslat poradnou prilohu, ja fakt nedokazu vsechno uhodnoutcitovat

Miky.Miguel(16.11.2012 13:11)#010354

Posílám přílohu ve které je soubor s výsledkem importu dat "Databaze.xlsm" a zdrojového souboru "Import_01_Nov.xls",jak data vypadají před importem. Je tam i popis.

Příloha: zip

10354_databaze.zip (27kB, staženo 28x)

citovat

Milan-D(19.11.2012 20:03)#010363

zkus soubor v priloze. Nasucho se to trefuje obtizne, takze par drobnosti tam asi bude zlobit, ale to uz hrave doladime

Příloha: zip

10363_databazex.zip (24kB, staženo 28x)

citovat

Miky.Miguel(27.11.2012 9:26)#010432

Moc díky. Je to tak jak jsem si představoval. Jen malá drobnost. Při importu dat se ve výsledku objevuje stále stejné datum a směna N, i když ve zdroji je datum pokaždé jiné a směna se mění z N na D.citovat

Milan-D(27.11.2012 9:38)#010433

Tak to si odkrokuj, anebo dej v kodu stopku (F9) nekam sem a dal to krokuj F8
wsH.Activate
wsH.Cells.Delete
i = Range("A1").CopyFromRecordset(rcd1)
dtDatum = Range("A1")

Pokud to natahlo data z externiho souboru, tak v bunce A1 na pomocnem liste musi byt nove datum. Jestli neni, tak patrej kde muze byt problem, ja tam nevidim :)citovat

Téma: Import dat z excelu na síti

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje