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.
Otevření několika souborů Vyřešeno
Re: Otevření několika souborů
A v čem to hodláš otevírat??
Re: Otevření několika souborů
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.
Potom ze souboru Import data uložím do csv. a budu s nimi pracovat dál.
Re: Otevření několika souborů
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í.
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Otevření několika souborů
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.
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ů
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?
HP Elitebook 845 G8 (Ryzen 5650U, 32GB RAM, WD SN570 1TB, 14" fullHD IPS) + HP USB-C G5 Essential + 29" LG 29UM65 + 22" Eizo S2202W
Re: Otevření několika souborů
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.
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Otevření několika souborů
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ů
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.
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
- Přílohy
-
- Documents.rar
- (9.29 KiB) Staženo 49 x
Re: Otevření několika souborů Vyřešeno
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í:
Děkuji za pomoc.
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.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
co je potřeba pro otevření krámu s výpočetní technikou
od souky5 » 02 lis 2023 19:24 » v Reklamace a zákony - 29
- 13383
-
od atari
Zobrazit poslední příspěvek
01 pro 2023 10:23
-
-
- 11
- 2640
-
od Grander
Zobrazit poslední příspěvek
30 črc 2023 15:20
-
- 2
- 3280
-
od faraon
Zobrazit poslední příspěvek
22 kvě 2024 20:20
-
-
Windows nezobrazuje podrobnosti souborů Příloha(y)
od pepanecek5 » 04 úno 2024 14:01 » v Windows 11, 10, 8... - 4
- 1591
-
od kecalek
Zobrazit poslední příspěvek
05 úno 2024 19:57
-
-
- 25
- 3266
-
od luko02420
Zobrazit poslední příspěvek
09 kvě 2024 10:12
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 19 hostů