» Poradna » Programy

Excel Macro uložit

 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

ZdravímS pomocí webu jsem zapsal kod aby se mi soubor.xlsm uložil do určité složky a následně vytiskl jedním tlačítkem. Soubor se jmenuje dd.mm.yyyy-Směna (A,B,C)-ranní(noční).xlsm ukládá se do složky ZÁLOHA. Datum se zapisuje na základě Range("buňka").Text stejně jako SMĚNA a RANNÍ (NOČNÍ). To proto, aby když někdo nastoupí na noční a ukládal by to až ráno, aby mohl popřípadě datum v té buňce změnit. Já bych ale ještě chtěl, aby se ten soubor na základě data ukládal do podsložek LEDEN - PROSINEC. Šlo by to?Tady pro případ kod:Sub UlozitaTisk() Cesta = Sheets("Předání").Range("N2").Text Datum = Sheets("Předání").Range("B4").Text ABC = Sheets("Předání").Range("G5").Text Smena = Sheets("Předání").Range("H5").Text JmenosDatumemaSmenou = Datum & "-" & ABC & "-" & Smena ThisWorkbook.SaveAs Filename:=Cesta & "\" & JmenosDatumemaSmenou & ".xlsm", FileFormat:=52 ActiveWindow.SelectedSheets.PrintPreview ActiveSheet.PageSetup.BlackAndWhite = False End SubDíky.

Odpovědi na otázku

 |   |  Microsoft Windows 7 Chrome 79.0.3945.88

Šlo by to.:)Ale presný kód ti neporadím, lebo nemám po ruke Excel.:))Len poradím, že tie podzložky by si mal pomenovať nejako inak ako LEDEN až PROSINEC - napr. 2020-01, 2020-02 atď. aby sa ti pekne radili za sebou v hlavnej zložke ZÁLOHA. Zároveň by sa dal rok a číslo mesiaca do názvu podzložky pravdepodobne extrahovať z toho dátumu, čo máš v B4. A ešte by som tam pridal test, ktorý by zistil existenciu tej podzložky a ak by neexistovala, tak by ju Excel vytvoril.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Android Chrome 79.0

No to by bylo přesně ono. Klidně počkám, až budeš mít excel při ruce. 🙄

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

Môžem to skúsiť, ale výsledok je bez záruky. Už len fakt, že s xls súbormi (alebo súborom) pracuje viac rôznych ľudí mi naháňa hrôzu.Navyše nechápem systém práce s tým súborom (súbormi). Ľudia otvárajú len ten soubor.xlsm, alebo pracujú aj s tými zálohovanými súbormi? Ak by s nimi nepracovali, tak by tie súbory nemuseli byť s makrom (.xlsm), ale stačilo by .xlsx. A ten soubor.xlsm sa neukladá?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Android AppleMAC-Safari 5.0

Kdyby oteviirali jenom určený xlsm tak by se mohl ukládat jenom xls. Jenže většinou otevírají poslední uloženy, aby přečetli informace, následně změní směnu, popřípadě datum a zase uloží.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

Aha.Skús toto. Ešte som zmenil formát dátumu v názve na yyyy.mm.dd kvôli radeniu. Do bunky B4 sa vpisuje dátum normálne - napr. 9.1.2020 - netestoval som, ak by bol v inom formáte napr. 09-01-2020 atď.https://pastebin.com/4FZw1mim

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Chrome 79.0.3945.88

Díky. Funguje i po změně formátu data. I podsložku jsem změnil na 01_2020.Pecka. Jsem absolutní novorozeně ve VBA.Díky

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Macro, Směna, Prosinec, Leden


Určitě si přečtěte

Výkon herního počítače za 139 Kč nebo i úplně zadarmo. Geforce Now startuje!

Výkon herního počítače za 139 Kč nebo i úplně zadarmo. Geforce Now startuje!

** Dlouhý betatest končí a nyní všichni mohou hrát přes internet ** Nemusíte žádné hry kupovat znovu. Jede to, co už máte v knihovnách na Steamu, Uplay, Battle.net a jinde ** Roční náklady odpovídají ceně jedné běžné hry

Tomáš Holčík | 53

Koupili jsme nejlevnější dron s kamerou. Stál nás 300 Kč a má rozměry kreditky

Koupili jsme nejlevnější dron s kamerou. Stál nás 300 Kč a má rozměry kreditky

** Kvalitní drony začínají na 10 000 Kč ** Šli jsme na to jinak a koupili ten nejlevnější s kamerou ** I když je to čínský šmejd, je s ním zábava

Jakub Čížek | 35

Proč teď nedává smysl kupovat notebook a kdy přijde ten správný čas

Proč teď nedává smysl kupovat notebook a kdy přijde ten správný čas

** Během pár týdnů přijdou na trh výkonnější notebooky ** Čím dražší notebook vybíráte, tím víc se vám změní nabídka ** Také lehké notebooky budou téměř herní

Tomáš Holčík | 52

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Šmírování kamerami Googlu: Koukněte, co šíleného se objevilo na Street View

Google stále fotí celý svět do své služby Street View. A novodobou zábavou je hledat v mapách Googlu vtipné záběry. Podívejte se na výběr nejlepších!

redakce | 8

Nejlevnější router s Wi-Fi 6 v testu: vážně ještě chcete kupovat routery jen pro 802.11ac?

Nejlevnější router s Wi-Fi 6 v testu: vážně ještě chcete kupovat routery jen pro 802.11ac?

** Otestovali jsme TP-Link Archer AX10, nejdostupnější router s Wi-Fi 6 ** Šetřilo se, ale zatím ty ústupky tolik nebolí ** Pro domácí síťování pohodlná volba, do firmy ale chcete něco lepšího

Tomáš Holčík | 44

USA rozdávají chudým dotované telefony s Androidem. Jsou z Číny a plné virů

USA rozdávají chudým dotované telefony s Androidem. Jsou z Číny a plné virů

** Chudí Američané mohou dosáhnout na dotovaný mobil ** Jeden takový rozdává třeba tamní Virgin Mobile ** Má to jeden háček. Je prošpikovaný malwarem

Jakub Čížek | 46

10 skrytých nastavení prohlížeče Google Chrome, která se můžou hodit

10 skrytých nastavení prohlížeče Google Chrome, která se můžou hodit

** Prohlížeč Google Chrome ukrývá mnoho zajímavých možností ** Našli jsme deset nejzajímavějších skrytých nastavení ** Můžete si například výrazně vylepšit práci s kartami

Karel Kilián | 18



Aktuální číslo časopisu Computer

Velký test autokamer

Test ATX skříní

Jak surfovat pohodlně

Sportovní aplikace

Jak funguje procesor