< návrat zpět

MS Excel


Téma: Cesta k souboru rss

Zaslal/a 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ěď >

#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
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íkycitovat
#050931
elninoslov
A čo je na tom príklade inak, ako píšete ???
Příloha: zip50931_tiskdopdf.zip (26kB, staženo 16x)
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 12x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09