< návrat zpět

MS Excel


Téma: VBA ulož kopii jako xlsx rss

Zaslal/a 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#035886
avatar
V excel2003 zrejme súbor .xlsx neotvoríš.citovat
#035887
avatar
Děkuji.

A je tedy nějaký jiný způsob jak to ve starších verzích otevřít?citovat
#035888
avatar
Staršie verzie pracujú s príponou .xls. Ale tam to bude aj s makrom.citovat
#035889
elninoslov
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
#035890
avatar
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: png35890_screenshot_12.png (13kB, staženo 55x)
35890_screenshot_12.png
citovat
#035891
elninoslov
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: zip35891_plany-komplet.zip (17kB, staženo 68x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje