VBA makra Excel

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Dawyck
nováček
Příspěvky: 3
Registrován: prosinec 17
Pohlaví: Nespecifikováno

VBA makra Excel

Příspěvekod Dawyck » 29 pro 2017 17:19

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.



Reklama
Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 176
Registrován: červen 13
Pohlaví: Muž

Re: VBA makra Excel

Příspěvekod elninoslov » 29 pro 2017 18:03

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.
Nemáte oprávnění prohlížet přiložené soubory.

xlnc
Level 3.5
Level 3.5
Příspěvky: 873
Registrován: červenec 11
Pohlaví: Muž

Re: VBA makra Excel

Příspěvekod xlnc » 29 pro 2017 18:29

Případně ActiveWorkbook.Path
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

Dawyck
nováček
Příspěvky: 3
Registrován: prosinec 17
Pohlaví: Nespecifikováno

Re: VBA makra Excel

Příspěvekod Dawyck » 29 pro 2017 20:45

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
  • Excel VBA - GetObject
    od Grimm » 11 bře 2019 14:53 » v Kancelářské balíky
    3
    359
    od ITCrowd
    11 bře 2019 16:12
  • Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
    od Pavel Křivánek » 26 lis 2018 15:04 » v Kancelářské balíky
    3
    784
    od MePExG
    28 lis 2018 21:30
  • Tvorba makra v excelu
    od micka » 27 dub 2018 08:56 » v Kancelářské balíky
    4
    599
    od micka
    27 dub 2018 10:41
  • Kopie souborů pomocí makra
    od luko02420 » 22 úno 2019 07:10 » v Kancelářské balíky
    0
    276
    od luko02420
    22 úno 2019 07:10
  • Automatické spuštění makra v pravidelných intervalech
    od dan39 » 17 říj 2018 09:54 » v Kancelářské balíky
    5
    753
    od dan39
    18 říj 2018 08:48

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot], Google [Bot] a 1 host