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.

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.

Případně ActiveWorkbook.Path

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