MS Excel

Téma: List do *pdf

Zaslal/a Alfan 24.8.2022 10:12

Dobrý den, nemáte někdo makro na uložení konkrétního listu do pdf?
Tohle se mi nedaří rozchodit
Díky.
RAdek

Sub doPDF()

Dim wList As Worksheet
Dim sDir As String
Dim i As Integer

Set wList = List2 'sem napíšeš list, který se má zpracovat
sDir = ThisWorkbook.Path & "\pdf\"
wList.Copy

ActiveWorkbook.SaveAs sDir & IIf(Right(sDir, 1) <> "\", "\", "") & wList.Name & " - " & c2 & ".pdf", FileFormat:=xlTypePDF, CreateBackup:=False, Local:=True

MsgBox ("Uloženo")
Application.StatusBar = False
End Sub

Zaslat odpověď >

Strana: « předchozí 1 2 3

Alfan(31.8.2022 9:31)#053291

Super, vše funguje

Díky
I ten email se otevře to okno

Pokud by byl k dispozici zaremovaný řádek (už vím, co to znamená :-)), kde by se automaticky doplnil příjemce z nějaké buňky, určitě by se to hodilo.
Předpokládám, že pokud by v buňce byly email oddělené středníkem, doplnily by se tyto emaily, jako příjemci, to by bylo fajn.
Ještě jednou díky.
Radekcitovat

elninoslov(31.8.2022 10:31)#053292

Stačí zmeniť
MAIL_ADRESAT = "niekto@odniekial.com"
na
MAIL_ADRESAT = .Range("B5").Value2
a vyplní adresáta (alebo adresátov oddelených bodkočiarkou/středníkem) napr. z bunky B5.citovat

Alfan(31.8.2022 11:37)#053293

Díky.
A mohu se zeptat, proč se používá Value2 a ne jen Value?citovat

Strana: « předchozí 1 2 3

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.