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.