XLS makro - uložení souboru do PDF

[MikeWitcher]

Zdravim vsechny, potreboval bych poradit s ukladanim na urcite misto a s urcitym nazvem. Ulozit do nejakeho adresare nekam na server je v pohode, ale chtel bych aby se mi soubor ulozil do pdf a jako nazev souboru pouzil napr. obsah jedne bunky.
Mate s tim nekdo zkusenosti????

Diky moc za radu

[Reklama]

[X]

Tvoje verze Excelu podporuje Pdf? Myslím, že to umí pouze 2010 a pak moje, kde je plug-in z Adobe Acrobatu (to je plná verze Adobe Readeru, která umožňuje i editaci a tvorbu). Použít název buňky pro název souboru není problém, já mám název přímo ve VBA, tedy spíš se mi částečně generuje i dle data a času.

[MikeWitcher]

Jasne, ze zadat primo nazev v VBA jde, ale ja potrebuji aby se me nazev menil pro kazde ulozeni souboru, nebo casti souboru. Napr potrebuji ulozit kazdy list zvlast a vse se bude menit podle cisla zakazky - napr. 60822154567_sheet1_..., a to cislo se bude stale menit, to potrebuji aby se me nacitalo z nejake bunky. Jde to????

--- Doplnění předchozího příspěvku (15 Čer 2011 06:46) ---

jinak to pdf neni problem, mam nainstalovany cutepdf writter a neni problem ukladat do pdf...

[X]

Pro to ukládání si zkus dopilovat (na tvé podmínky a potřeby, nekontroloval jsem, může tam být chyba) tohle:

Sheets("nazev listu").Select <vybere požadovaný list (kde budeš mít buňku se jménem>
ActiveWorkbook.SaveAs Filename:= Cells(řádek vyjádřený číslem, sloupec vyjádřený číslem) <nahraje sešit se jménem buňky>

[MikeWitcher]

Tak uz jsem vse nejak vyresil a vcelku uspesne :-)
Mam dalsi krok - chtel bych aby kdyz chci ulozit na urcite misto konecny soubor, tak aby me hodilo hlasku ze nemuze ulozit, pokud uz zde je soubor s stejnym nazvem a donutilo me to zmenit. nyni se mi to prepisuje bez jakekoliv hlasky a oznameni....

Muj stavajici vypis:
Sub save_front_panel_to_pdf()

Dim Cesta As String
Dim Jmeno As String

' nastavit cestu
Cesta = "C:\xxxxxxx\"
ChDir Cesta

'ulozeni listu 1
Sheets("FRONT PANEL").Select
Jmeno = Application.GetSaveAsFilename(Worksheets("FRONT PANEL").Range("E2"))


If Jmeno = "False" Then
MsgBox "MUST WRTITE THE NAME!!, MACRO WILL BE CLOSED", vbCritical, "MISTEAK"
Worksheets("DROP DOWN LIST DATA").Activate
Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Left(Jmeno, Len(Jmeno) - 1), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

'navrat na prvni list
Worksheets("DROP DOWN LIST DATA").Activate
End Sub