• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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: 55655_pdf.zip (17kB, staženo 5x)

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse