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
XLS makro - uložení souboru do PDF
-
- nováček
- Příspěvky: 3
- Registrován: červen 11
- Pohlaví:
- Stav:
Offline
XLS makro - uložení souboru do PDF
Naposledy upravil(a) mike007 dne 26 čer 2011 13:01, celkem upraveno 1 x.
Důvod: Upřesnění názvu tématu
Důvod: Upřesnění názvu tématu
Re: makro v Excelu
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.
-
- nováček
- Příspěvky: 3
- Registrován: červen 11
- Pohlaví:
- Stav:
Offline
Re: makro v Excelu
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...
--- 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
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>
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>
-
- nováček
- Příspěvky: 3
- Registrován: červen 11
- Pohlaví:
- Stav:
Offline
Re: makro v Excelu
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
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
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1263
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 11
- 2284
-
od Grander
Zobrazit poslední příspěvek
30 črc 2023 15:20
-
-
Windows nezobrazuje podrobnosti souborů Příloha(y)
od pepanecek5 » 04 úno 2024 14:01 » v Windows 11, 10, 8... - 4
- 805
-
od kecalek
Zobrazit poslední příspěvek
05 úno 2024 19:57
-
-
-
Jak hromadně změnit datum a čas souborů?
od atari » 11 črc 2023 14:41 » v Programování a tvorba webu - 3
- 2571
-
od X
Zobrazit poslední příspěvek
14 črc 2023 15:17
-
-
- 3
- 1438
-
od flowem
Zobrazit poslední příspěvek
18 dub 2024 11:06
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti