Stránka 1 z 1
XLS makro - uložení souboru do PDF
Napsal: 13 čer 2011 16:06
od 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
Re: makro v Excelu
Napsal: 13 čer 2011 16:31
od 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.
Re: makro v Excelu
Napsal: 15 čer 2011 06:45
od 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...
Re: makro v Excelu
Napsal: 15 čer 2011 14:21
od 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>
Re: makro v Excelu
Napsal: 17 čer 2011 09:30
od 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