Stránka 1 z 1
Otevření několika souborů
Napsal: 18 bře 2021 19:39
od luko02420
Dobrý večer, měl bych dotaz a popřípadě uvítal i nějaký návrh, zda je možné postupně makrem otevírat jeden soubor excelu po druhém v pevně definovaném umístnění. Problém je asi v tom, že soubory se mohou jmenovat pokaždé jinak.
Potřebuji jednotlivý soubor otevřít, vzít z něho data a potom může být ze zdrojové složky odstraněn.
Díky za každou radu.
Re: Otevření několika souborů
Napsal: 18 bře 2021 20:02
od juwa
A v čem to hodláš otevírat??
Re: Otevření několika souborů
Napsal: 18 bře 2021 20:15
od luko02420
Moje představa je taková, že budu mít soubor excelu např. "Import" a do něho budu načítat data z otvíraných souborů.
Potom ze souboru Import data uložím do csv. a budu s nimi pracovat dál.
Re: Otevření několika souborů
Napsal: 18 bře 2021 20:26
od atari
Makrem si načteš ze složky návzy souborů, určíš si jejich pořadí, a pak je makrem postupně otevřeš podle toho definovaného pořadí.
Re: Otevření několika souborů
Napsal: 18 bře 2021 22:50
od elninoslov
To sú Excelácke súbory?
Majú rovnaký počet a názvy listov? Alebo plne variable ?
Rovnaké oblasti (rozsahy) dát? Rozdielne?
Sú tam prázdne bunky/riadky?
Kde začínajú data? 1. riadok, 5. riadok, 12. riadok ...?
Bude sa jednať o všetky súbory daného typu v adresári alebo nejaké rozpoznávacie znaky?
Za určitých okolností sa dá použiť PowerQuery - bez makra.
Málo info, žiadna príloha.
Re: Otevření několika souborů
Napsal: 18 bře 2021 23:41
od Zivan
Nebo jinak...pokud to jsou data na stejných místech...co ty excely převést na CSV a jednoduše spojit všechny CSV ve složce?
Re: Otevření několika souborů
Napsal: 19 bře 2021 06:41
od luko02420
Dobrý den, děkuji za reakce a názory, pro mne je zatím nejschůdnější řešení, které navrhuje Atari, k tomu co píše Elninoslov, jedná se o objednávky exportované z Pohody do excelového souboru. Musím je upravit do formátu csv a potom importovat do našeho systému. Ten ale potřebuje mít pevně definované sloupce a řádky, což Pohoda takto neumí vyexportovat. Samotné načtení dat z exportované objednávky už mám snad vyřešený, jde mi jenom o to otevření excelových souborů, protože budou mít pokaždé jiný název.
Re: Otevření několika souborů
Napsal: 19 bře 2021 17:38
od elninoslov
Môžete priložiť aspoň 1 súbor xlsx z Pohody, stačí ak bude mať hlavičkový riadok a 1 či 2 dátové s vymyslenými dátami, ale so zachovaným formátom dát? A rovnako priložte výsledok v podobe CSV, ako má tento 1 riadok dát presne vyzerať v tom CSV.
Re: Otevření několika souborů
Napsal: 19 bře 2021 20:31
od luko02420
Dobrý večer, přikládám oba dva soubory. Jenom prosím chci říct, že výstup z excelu do CSV, není v tomto případě asi důležitý. Ten export dat do CSV si udělám.
Jde o to,že potřebuji otevírat objednávky z Pohody a dostat data do excelu, zpracovat, upravit a vyexportovat.
V objednávce z Pohody budu brát část názvu "Objednávka č. 123446" v hlavičce a z položek budu vytahovat údaj o délce. viz příloha Objednávky.
Jakmile to upravím pošlu to do CSV.
Snad jsem to popsal srozumitelně.
Díky za ochotu.
tak a prvni problem je na světě.
Asi nedokážu otevřít více souborů , používám toto makro, zkoušel jsem kde co ale nemužu příjít na to jak rozsirit oblast pro nacteni nazvu oteviranych souboru.
Kód: Vybrat vše
Sub otevreni_moje()
ChDir ThisWorkbook.Path
'bunka = ThisWorbook.Sheets("Data").Range("I3")
Workbooks.Open Filename:=Range("I3") '"Objednavka_c. vzor1.xls"
End Sub
Re: Otevření několika souborů Vyřešeno
Napsal: 22 bře 2021 14:32
od luko02420
Prosím ještě o radu, nemůžu do kódu dostat odkazování na buňku. Jedná se o makro na uzavření zdrojového sešitu excel, který může byt pokaždé jiný, a ze kterého kopíruji data do cílového. Překopírování hodnot ze zdrojového už mám, ale nevím jak se vrátit zpět na zdrojový sešit když jeho název může být proměnný.
Název zdrojového sešitu mám v cílovém sešitu na listu "Data" buňce "I3".
Používám toto makro na uzavření:
Kód: Vybrat vše
Sub uzavreni_obj()
Workbooks("sesit.xls").Close False
' Workbooks("sesit.xls").Close SaveChanges:=False
' Zabranění zobrazení systemových hlášek
Application.DisplayAlerts = False
End Sub
Děkuji za pomoc.