MS Excel

Téma: Uložení aktivního listu XLSM do PDF

Zaslal/a pepča 10.11.2023 23:26

Ahojky.
Potřeboval bych poradit s makrem které uloží ne sešit, ale pouze aktivní list jako PDF do stejné složky a název dle textu v buňce BG1 .Pokud určím cestu je vše OK, ale nevím jak zadat stejnou složku a jméno.
Používám toto makro:
Sub Pokus()
Application.ScreenUpdating = False
Range("AK:AN").Select
Selection.EntireColumn.Hidden = True
Range("B793:B1048576").Select
Selection.EntireRow.Hidden = True
Range("B6").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\Pokus\Export.pdf", _
OpenAfterPublish:=False

Range("AK:AN").Select
Selection.EntireColumn.Hidden = False
Range("B793:B1048576").Select
Selection.EntireRow.Hidden = False
Range("B6").Select

Application.ScreenUpdating = True
End Sub

Nevím jak změnit Filename.
Vím ,že na tomto fóru byly makra na uložení celého sešitu, ale bohužel celý sešit nejde uložit do PDF z důvodu velikosti.
Pokud by byla nutně potřeba příloha zašlu zjednodušenou.
Díky za každou odpověď.
Pepča

Zaslat odpověď >

Lugr(11.11.2023 10:48)#055655

Takhle?

Příloha: zip

55655_pdf.zip (17kB, staženo 7x)

citovat

pepča(11.11.2023 11:16)#055656

Velmi děkuji Lugr. Je to přesně co jsem potřeboval. Kdo umí ten umí.
S pozdravem
Pepčacitovat

Lugr(11.11.2023 11:29)#055657

Není za co.

Zkus se v makru vyhnout SELECT, nebude ti problikávat monitor.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.