< návrat zpět

MS Excel

Téma: PDF bez cesty rss

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
avatar
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
Jeza.m
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
avatar
WorkBooks("dotaznik.xlsx").SendMailcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje