To se tu probírá pravidelně. Nebuď líný. http://wall.cz/index.php?m=topic&id=21451citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: ulozit vybrany sheet ako PDF
MS Excel
Téma: ulozit vybrany sheet ako PDF 
Zaslal/a 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
(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
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
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
(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
*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
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články