Zaslal/a vasekp 9.4.2023 14:05
Dobrý den.
Níže přikládám funkci, kterou mi napsal někdo schopnější než já. Základem bylo, že funkce hledala umístění jiných souborů ve složce, která ve stejné složce jako excelovský soubor, v kterém tato funkce byla použita. Fungovalo mi to na dropboxu kde adresa souboru byla stále na místním disku, ale nyní používám onedrive a adresa souboru je na síti (https://sgroupholding.sharepoint.com/) a vytvořená funkce neumí přečíst toto internetové umístění. Neřešil jste někdo něco podobného? Nebo nevíte, jak na to?
Function HYPLNK(C As String) As String
Dim Cesta As String, Subor As String
With ThisWorkbook
Cesta = .Path & "\SMLOUVY\"
Soubor = Dir(Cesta & "*")
On Error Resume Next
While Soubor <> vbNullString
If InStr(Left(Soubor, 6), C) > 0 Then HYPLNK = Cesta & Soubor: Exit Function
Soubor = Dir()
Wend
End With
End Function
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.