Zdravím,
tak po delším hledání a zkoušení všech možných kombinací i z Lašakovi jsem ne konci sil a nápadů. SaveAs na uložení kopie rozpracovaného souboru. Potřebuji vyřešit uložení kope aktuálního souboru do stejného adresáře pod určitým jménem. Jméno vyřeším, ale ten aktuální adresář nedávám a to ani přes cestaAdresare. Dokážete mi prosím hodit záchranné lano?
Typicky jméno souboru Range("A1")
A podobný problém také s uložením do PDF:
Sub TISKPDF()
'Z DANÉ POPTÁVKY VYTVOŘÍ PDF SOUBOR V ÚLOŽIŠTI
ActiveSheet.Select
CestaAdresare = "jak udělat dynamickou?"
zakazka = Range("F2").Text
soubor = CestaAdresare & "Poptávka" & zakazka & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=soubor, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Díky moc za pomoc
D.
VBA makra Excel
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: VBA makra Excel
Ak myslíte to, ako zistiť aktuálnu zložku súboru v ktorom pracujete, tak :
EDIT:
Ako príklad uloženia kópie celého súboru, a uloženie iba aktuálneho listu do PDF prikladám prílohu.
Kód: Vybrat vše
CestaAdresare = ThisWorkbook.Path & "\"
EDIT:
Ako príklad uloženia kópie celého súboru, a uloženie iba aktuálneho listu do PDF prikladám prílohu.
- Přílohy
-
- Makro Ulož kópiu a PDF.xlsm
- (26.05 KiB) Staženo 27 x
Re: VBA makra Excel
elninoslov píše:Ak myslíte to, ako zistiť aktuálnu zložku súboru v ktorom pracujete, tak :Kód: Vybrat vše
CestaAdresare = ThisWorkbook.Path & "\"
EDIT:
Ako príklad uloženia kópie celého súboru, a uloženie iba aktuálneho listu do PDF prikladám prílohu.
Tak mockrát děkuji. Já se s tím mořil několik hodin pokusů. Neumím Dim atd... takže tohle je pro mě cenný fragment na učení.
Děkuji moc. Určitě budu mít ještě více dotazů, ale nejdříve zpracuji tohle
Ještě jednou díky
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 1522
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 16
- 8285
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 4668
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 3
- 3146
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 5
- 3944
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 41 hostů