< návrat zpět

MS Excel

Téma: Cesta k souboru rss

Zaslal/a Dita 3.7.2021 6:59

Dobrý den
prosím o úpravu kódu tak, abych nemusel zapisovat cestu k uložení souboru ve VBA, ale zapsal jí v listu "Měsíc" do buňky A2. V buňce A1 mám hodnotu měsíce 1-leden, 2-únor atd.
Děkuji

Sub TiskDoPdf()

Dim Mesic As Integer, OldSelect As Worksheet
Mesic = Sheets("Měsíc").Range("A1").Value
Set OldSelect = ActiveSheet
Sheets("Doplnění").PageSetup.PrintArea = Sheets("Doplnění").Range("A1:G50").Offset(0, (Mesic - 1) * 8).Address
Sheets(Array("sm. A", "sm. B", "sm. C", "sm. D", "Doplnění")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\slay\Desktop\Docházka_pdf\" & Mesic & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Docházka").Select

End Sub

Zaslat odpověď >
elninoslov(3.7.2021 12:01)citovat#050923
elninoslov
Sub TiskDoPdf()
Dim Mesic As Integer
Mesic = Sheets("Měsíc").Range("A1").Value

Sheets("Doplnění").PageSetup.PrintArea = Range("A1:G50").Offset(0, (Mesic - 1) * 8).Address
Sheets(Array("sm. A", "sm. B", "sm. C", "sm. D", "Doplnění")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Sheets("Měsíc").Range("A2").Value & Mesic & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Docházka").Select
End Sub
Dita(3.7.2021 19:05)citovat#050924
avatar
Děkuji za rychlou reakci, ale asi jsem zadal dotaz špatně. Do buňky A2 zapíšu cestu do složky kam se má soubor uložit. Název souboru bude podle hodnoty v buňce A1.
Ještě jednou díky
elninoslov(4.7.2021 0:37)citovat#050931
elninoslov
A čo je na tom príklade inak, ako píšete ???
Příloha: zip50931_tiskdopdf.zip (26kB, staženo 20x)
Dita(4.7.2021 6:35)citovat#050932
avatar
Omlouvám se, nezapsal jsem poslední lomítko v cestě 4
Můžu ještě poprosit 4 : namísto číslovky 1 - 12 (měsíc) mám ověřením dat leden - prosinec (aby byl název souboru "duben.pdf". VBA mi ale v tomto případě vyhodí chybu.
Děkuji
Příloha: rar50932_tiskdopdf.rar (26kB, staženo 15x)

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