MS Excel

Téma: Export do pdf

Zaslal/a stanleys 16.8.2013 14:28

Dobry den,
nahral som si makro na ulozenie tlacovej oblasti v MS Exceli do suboru formatu pdf. Makro funguje, ale potreboval by som subor ukladat pravidelne s tym, ze bude menit meno suboru, napr 001.pdf, 002.pdf, ...
Viete mi prosim poradit?

Dakujem
Stanley

Sub Ulozit_do_pdf()
'
' Makro3 Makro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\Test\0001.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

Uzamčeno - nelze přidávat nové příspěvky.

cmuch(16.8.2013 19:33)#014761

Nebude lepší to ukládat pod datumem a časem,
001,002... je nic neříkající.

"e:\test\" & Format(Now, "yyyy.mm.dd-hh.mm.ss") & ".pdf"citovat

stanleys(17.8.2013 15:11)#014769

Potreboval by som to pod poradovym cislom, je to zaroven cislo dokladu pre zakaznika, podla ktoreho to vie identifikovat.

Dakujem
Stanleycitovat

cmuch(18.8.2013 15:47)#014772

Tak pak bys musel mít nalistu jednu pomocnou buňku, ve které by bylo číslo poslední verze.
zde List1 A1

"e:\test\" & Format(Sheets("List1").Range("A1") + 1, "0000") & ".pdf"
Sheets("List1").Range("A1") = Sheets("List1").Range("A1") + 1

Při provedení se vždy zvýší verze. serialcitovat

stanleys(22.8.2013 7:50)#014805

Nakoniec som to nechal ukladat pod datumom a casom.

Dakujem
Stanleycitovat

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.