Otevření několika souborů Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 2
Level 2
Příspěvky: 186
Registrován: únor 12
Pohlaví: Nespecifikováno

Otevření několika souborů

Příspěvekod luko02420 » 18 bře 2021 19:39

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.

Reklama
juwa
Level 1
Level 1
Příspěvky: 79
Registrován: listopad 16
Pohlaví: Nespecifikováno

Re: Otevření několika souborů

Příspěvekod juwa » 18 bře 2021 20:02

A v čem to hodláš otevírat??

luko02420
Level 2
Level 2
Příspěvky: 186
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Otevření několika souborů

Příspěvekod luko02420 » 18 bře 2021 20:15

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.

Uživatelský avatar
atari
Level 5.5
Level 5.5
Příspěvky: 2847
Registrován: říjen 08
Pohlaví: Muž

Re: Otevření několika souborů

Příspěvekod atari » 18 bře 2021 20:26

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í.

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 300
Registrován: červen 13
Pohlaví: Muž

Re: Otevření několika souborů

Příspěvekod elninoslov » 18 bře 2021 22:50

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.

Zivan
Level 4.5
Level 4.5
Příspěvky: 1880
Registrován: leden 10
Pohlaví: Nespecifikováno

Re: Otevření několika souborů

Příspěvekod Zivan » 18 bře 2021 23:41

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?
Lenovo Thinkpad X220 (i5 2410M, 16GB RAM, HD3000, 500GB mSata Samsung 850 EVO + HDD 2TB, 12.5" IPS) + Mini Dock Plus Series 3 + 29" LG 29UM65 + 22" Eizo S2202W

luko02420
Level 2
Level 2
Příspěvky: 186
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Otevření několika souborů

Příspěvekod luko02420 » 19 bře 2021 06:41

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.

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 300
Registrován: červen 13
Pohlaví: Muž

Re: Otevření několika souborů

Příspěvekod elninoslov » 19 bře 2021 17:38

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.

luko02420
Level 2
Level 2
Příspěvky: 186
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Otevření několika souborů

Příspěvekod luko02420 » 19 bře 2021 20:31

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
 
Nemáte oprávnění prohlížet přiložené soubory.

luko02420
Level 2
Level 2
Příspěvky: 186
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Otevření několika souborů  Vyřešeno

Příspěvekod luko02420 » 22 bře 2021 14:32

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.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Ubuntu 20.10 64 bit chyba otevření souboru
    od pc-hrac » 01 bře 2021 18:47 » v LiNuX a ostatní alternativní OS
    2
    503
    od dvorakj
    01 bře 2021 19:19
  • Automatické otevření hypertextu
    od Zofak » 10 úno 2021 13:32 » v Kancelářské balíky
    1
    507
    od ITCrowd
    10 úno 2021 16:14
  • Otevreni portu na fritzbox 7490
    od arpi » 17 pro 2020 15:30 » v Sítě - hardware
    3
    433
    od zeus
    17 pro 2020 18:09
  • Modré okno vždy po otevření nové karty
    od Apolda » 02 čer 2021 20:43 » v Vše ostatní (sw)
    3
    409
    od zik9
    03 čer 2021 00:07
  • Power point - automatické spouštění prezentace při otevření ze složky
    od Václav Polák » 26 úno 2021 18:08 » v Kancelářské balíky
    6
    929
    od Václav Polák
    06 bře 2021 11:08

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host