MS Excel

Téma: VBA ulož kopii jako xlsx

Zaslal/a Raders486 31.3.2017 15:38

Ahoj, pro ukládání kopii sešitu používám níže uvedený kód.
Vytvořené kopie však nejdou otevřít.

Sub UložKopie()
Application.DisplayAlerts = False
Application.EnableEvents = False

'kopie pro zaměstnance s office menší než 2007
ActiveWorkbook.SaveCopyAs Filename:= _
"\\Storage2\vyroba\Plany\archiv\Plány komplet " & FORMAT(Date + 1, ddmmyyyy) & ".xlsx"

'kopie pro oddělení plánování
ActiveWorkbook.SaveCopyAs Filename:= _
"\\Storage2\vyroba\Plany\Plány komplet.xlsx"

Application.DisplayAlerts = True
Application.EnableEvents = True

End Sub

Potřeboval bych ze sešitu s makrem vytvořit kopie pro počítač, kde je Office starší než verze 2007.

Poradíte prosím?

Děkuji

Zaslat odpověď >

marjankaj(31.3.2017 15:42)#035886

V excel2003 zrejme súbor .xlsx neotvoríš.citovat

Raders486(31.3.2017 15:57)#035887

Děkuji.

A je tedy nějaký jiný způsob jak to ve starších verzích otevřít?citovat

marjankaj(31.3.2017 16:13)#035888

Staršie verzie pracujú s príponou .xls. Ale tam to bude aj s makrom.citovat

elninoslov(31.3.2017 16:46)#035889

Pre otvorenie XLSX na Office 2003 treba doinštalovať na všetkych PC s Office 2003 balíček kompatibility.

Ak chcete uložiť kópiu XLSM ako XLS ale bez makra, napadá ma, uložiť kópiu ako XLSX, tú otvoriť a uložiť ako XLS. Bude z toho XLS bez makra.citovat

Raders486(31.3.2017 17:31)#035890

Děkuji za radu, ale pokud uložím jako xlsx tak pak to v office 2007 nejsem schopen otevřít, vyskočí hláška viz příloha.

Příloha: png

35890_screenshot_12.png (13kB, staženo 55x)

citovat

elninoslov(31.3.2017 17:53)#035891

Presne tak, lebo nieje možné ulož kópiu ako iný formát. Preto sa to trošku komplikuje, ale vyriešiť sa to dá.

PS: Module2 si samozrejme nevšímajte, to je nahrané makro, nepotrebné, môžete zmazať.

Příloha: zip

35891_plany-komplet.zip (17kB, staženo 68x)

citovat

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.