MS Excel

Téma: Změna názvu souboru

Zaslal/a KENTAUR 21.2.2013 7:44

Dobrý den, mám dotaz. Lze pomocí makra před uložením otevřeného sešitu (makro before close) změnit jeho název? Např. otevřu sešit s názvem jablko.xlsm a po uložení se ten sešit bude jmenovat hruška.xlsm

Zaslat odpověď >

Opičák(21.2.2013 9:00)#011781

ActiveWorkbook.SaveAs Filename:=adresar & jmeno_sešitu & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True

samozřejmě někde nejprve zadáš nebo načteš nějaký adresář, kam s tím a nějaké nové jméno sešitu.

pokud máš propojení s jiným sešitem, bude to bez ošetření zlobitcitovat

KENTAUR(21.2.2013 11:22)#011787

To není to co myslím. Nechci vytvořit další sešit.
Mám na mysli, aby sešit přepsal sám sebe, ale pod novým názvem.citovat

Pavlus(21.2.2013 13:09)#011791

Myslím, že to jinak nejde...
Vždycky když dáš "Uložit jako", tak ti zůstane i původní soubor. Takže využij kód o Opičáka a přidej k tomu ještě příkaz na "zabití" (smazání) původního souboru .-).
P.

Př.:
Kill "cesta_k_puvodnimu_souboru"citovat

KENTAUR(21.2.2013 23:23)#011812

Díky za odpovědi. Myslel jsem si ,že to nejde, ale chtěl jsem si to to ještě ověřit tady na foru.
Možno uzamknout.citovat

AL(21.2.2013 23:39)#011813

No, ono to síce nejde (asi), pred zavretím súboru, ničmenej, po tom, čo ho zavrieš, tak to pôjde, ovšem procedúrou, ktorá je umiestnená v nejakom otvorenom súbore, príklad tuná:Sub Premenuj()
Name "D:\MyDocuments\jablko.xlsm" As "D:\MyDocuments\hruška.xlsm"
End Subcitovat

Opičák(22.2.2013 2:04)#011815

Já myslím, že to jde obejít.
Uložíš pod novým jménem, tedy vytvoříš duplikát s jiným jménem a ten starý smažeš.

edit. no jo nečtu všechno, Pavlus to tu už napsalcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.