MS Excel

Zdravím, přemýšlím jak udělat
1) propojení na jiné soubory
2) hypertextové odkazy na jiné soubory
na základě umístění právě používaného excelu.
Aby ve výsledku bylo možné odkázat se na excel který je ve složce, která je ve stejném adresáři(AA) jako právě otevřený excel (odkaz pdfka, která jsou umístěna obdobně)

ABY bylo možné adresář AA přemístit na jiný disk/poslat mailem/atd a propojení, hypertextové odkazy zůstaly funkční.

No a pak ještě přemýšlím jak odkázat hyp.text. odkaz třeba na pdf, když budu znát umístění složky a název souboru bude napsaný v aktivním excelu v nějaké bunce.

Zaslat odpověď >

Strana: « předchozí 1 2

elninoslov(9.7.2015 22:20)#025854

A ještě jsem přemýšlel, jestli by nějak šlo otevřít v té složce všechny soubory, které obsahují text z té buňky(protože ty číselné názvy bude mít každý soubor jiný). Abych v buňce měl název "1000" a otevřelo mi to soubor, který bude začínat 1000_nazev_neco_neco.pdf ..

Odpichoval som sa od tohoto, čo som pochopil, takto:

Pred čiarkou - rodič
Za čiarkou - ak je väčšie ako 00 tak je to dieťa

A tak som to aj urobil, tak to dávalo aj zmysel.
Ja Vám fakt nerozumiem, čo potrebujete. Takto ako som Vám to teraz upravil, ako žiadate, mi to nedáva zmysel, a odporuje to predošlým požiadavkám, a podľa toho ako to chápem, aj logike.

Vyskúšajte, či je to to pravé orechové.

Příloha: rar

25854_hl3.rar (70kB, staženo 17x)

citovat

vasekp(13.7.2015 16:34)#025880

Kouknul jsem na to jen v rychlosti a je to přesně ono!
Zítra mrknu a budu louskat kód, ať se něčemu přiučím.
ďakujem :)citovat

vasekp(16.7.2015 10:27)#025889

Ještě jsem přemýšlel, jak by šlo udělat aby poté co to nalezne vyhovující soubor, tak aby jeho cestu formou hypertextového odkazu zapsal do nějaké buňky? (zadání vyhledávání bude vždy odpovídat pouze jednomu souboru)citovat

elninoslov(16.7.2015 22:05)#025894

Do F1 toho súboru, čo som Vám poslal minule, dajte:
=IF(hyplnk(E1)="";"";HYPERLINK(hyplnk(E1)))
a do Module1 pridajte túto funkciu:
Function HYPLNK(C As String) As String
Dim Cesta As String, Subor As String
With ThisWorkbook
Cesta = .Path & "\Files\"
Subor = Dir(Cesta & "*.pdf") 'Ak má ísť o hociaký typ súboru tak : Subor = Dir(Cesta & "*")
On Error Resume Next
While Subor <> vbNullString
If InStr(Subor, C) > 0 Then HYPLNK = Cesta & Subor: Exit Function
Subor = Dir()
Wend
End With
End Function
V bunke F1 bude teraz vždy hyperlink na prvý súbor, ktorý obsahuje zadaný reťazec v E1. Ak taký nieje, nebude tam nič.

Inak mali by ste sa rozhodnúť, čo tam má byť, veď to stále meníte. Ak nechcete už otvárať všetky súbory, tak to tlačítko aj s procedúrou zmažte, a nechajte len Hyperlink na prvý nájdený súbor.citovat

vasekp(24.7.2015 10:40)#025963

parádní, vskutku parádní, díky moc :))citovat

vasekp(25.11.2015 9:36)#028298

Zdravím elninoslov, po několika měsících jsem narazil na problém s touto funkcí hyplnk. Jelikož se v názvu souboru vyskytují různé čísla a vlastní poznámky, tak pokud hledám např dle id 015 soubor 015_Oprava_beton_vp11001.pdf tak mi to muze dat odkaz na soubor hned prvni pokud bude vypadat např takto 001_Vypocet_neconeco_SK10155.pdf, tak id typu 015 nalezne v nazvu prvního souboru a odkaz bude chybny. Chtěl jsem se zeptat jestli lze provádět to vyhledávání jen například podle prvních šesti symbolů z názvu souboru. (nejdelší ID 501,01)citovat

elninoslov(30.11.2015 12:48)#028398

Len zbrucha, nemam na nič iné čas, a nemôžem z tabletu overiť. Nahraďte
... InStr(Subor, C) ...
Za
... InStr(Left(Subor, 6), C) ...
alebo za
... InStr(Left(Subor, InStr(Subor, "_")-1), C) ...citovat

Strana: « předchozí 1 2

Téma: Využití cesty souboru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje