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

MS Excel

Téma: ulozit vybrany sheet ako PDF

Zaslal/a dialektor 1.12.2014 17:26

Ahojte, potreboval by som poradit, chel by som ukladat vybrany sheet v exceli ako PDF skusil som neco taketo ale nejak to nefakci ... poprosim skusenejsich aby sa nato pozreli

Sub odoslat_report()

Dim cislotr As Long
Dim datum As Date

cislotr = ActiveSheet.Range("B4").Value
datum = ActiveSheet.Range("B15").Value


FCesta = "C:\"
Fmeno = cislotr
FCislo = datum
datum = Fmeno
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FCesta & "-" & cislotr

End Sub

Dakujem za pomoc

Zaslat odpověď >

---

kp57(1.12.2014 17:50)#022610

To se tu probírá pravidelně. Nebuď líný. http://wall.cz/index.php?m=topic&id=21451citovat

dialektor(1.12.2014 18:42)#022611

Dakuejm ja som uz neco podobne tu na fore studoval ... jednalo sa tam u ukladanie inych sheetov ako pdf nie aktivneho, ja by som ta ale predsa chcel poprosit aby si mi mrkol odbornym okom na kod kde som urobil chybu je to dvolezite premna takto sa aj naucim neco dik moccitovat

cmuch1(1.12.2014 20:26)#022616

Řekl bych, že není možno zapisovat přímo do C:, zadej jinou cestu.citovat

kp57(1.12.2014 20:49)#022617

Cmuch má pravdu!
No a vzhledem k tomu, že cislotr je Long nemáš tam příponu "pdf".
Option Explicit
Sub odoslat_report()
Dim FCesta As String, Fmeno As Long
FCesta = ThisWorkbook.Path & "\"
Fmeno = ActiveSheet.Range("B4").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FCesta & "-" & Fmeno & ".pdf"
End Sub
citovat

dialektor(2.12.2014 18:34)#022637

Ahojte, mam otazky ktomu kodu co si mi vcera opravoval:

*co je opinion explicit?
*preco si nazval premenu Fcesta a nie len cesta tak isto Fmeno?

F je premenna typu float.. ked si dobre pamatam, ale neviem preco pouzit a naco vlatne float sluzi na googli je vela teorie skorej by som to ochopil v praxi . Dakujemcitovat

kp57(2.12.2014 19:47)#022638

První, základní, pro začátečníky nezbytné je "Option explicit".
http://www.excel-easy.com/vba/examples/option-explicit.html
Pokročilí mohou o (ne)užitečnosti diskutovat.

F je premenna typu float..
Neznám takový typ, že by Variable? Tady k tomu není důvod.

Fcesta, Fjmeno jsem vzal z tvého kódu. Předpokládal jsem FileCesta, FileJmeno.
To Fjmeno můžeš deklarovat taky jako String a přiřadit do něj cokoli, třeba i Datum.
Dim Fjmeno As String
Fjmeno = "file_" & 123 & "_" & Format(Now, "d.m.yyyy") & ".pdf"
citovat

dialektor(2.12.2014 19:56)#022640

Dakuejmcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse