< 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 5x)
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 3x)
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

Vodorovný teploměr v buňce

GeorgeK • 1.12. 12:26

Vodorovný teploměr v buňce

elninoslov • 1.12. 10:21

Vodorovný teploměr v buňce

Stalker • 1.12. 10:01

Vodorovný teploměr v buňce

GeorgeK • 1.12. 9:15

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51