• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: PDF bez cesty

Zaslal/a monier 7.8.2017 10:29

Mám taký problém a chcem sa spýtať, či je ho možné vyriešiť v prípade ako.
Môj excel súbor je dostupný na stiahnutie. Na 1 liste je taký "dotazník". Ak ho niekto vyplní, chcem aby mi ho poslal. Nie každý využíva službu Outlook, tak som chcel to riešiť uložením ako PDF pomocou 1 tlačítka v exceli a VBA kódom.
Avšak ako pozerám kódy na uloženie ako PDF, tak všade píše cestu C:/User/xxxx/Deskop a keďže pochopiteľne daný človek to bude robiť na svojom PC, tak to meno bude vždy iné.

Nedá sa to nejak preskočiť. Alebo nejak na sieť uložiť ??

Zaslat odpověď >

---

Pavlus(7.8.2017 11:31)#037177

Cesta k souboru může být dynamická, lze si ji poskládat jak potřebuješ. Využít k tomu můžeš například příkaz "ThisWorkbook.Path".
P.citovat

Jeza.m(7.8.2017 16:22)#037184

Co takhle dát uživateli na výběr, kam si to dočasné pdf uloží?
Dim cesta As String
cesta = Application.GetSaveAsFilename(InitialFileName:="Něco", fileFilter:="PDF (*.pdf), *.pdf")

Pokud si to ale chceš řídit sám, tak
Dim cesta As String
Cesta = Environ$("USERPROFILE") & "\Desktop\"
což se nemusí všem líbit a na starších Windows, to ani šlapat nemusí.

M@citovat

anyman(7.8.2017 21:39)#037186

WorkBooks("dotaznik.xlsx").SendMailcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse