hypertextový odkaz na podsložku ve vytvářené složce Vyřešeno

[crgo77]

Aha,tak tohle jsem nezkoušel,vyzkoším a dám vědět,jestli to funguje.
Jenom ze zvědavosti se zeptám,nevíte někdo,jak asociovat odkaz z totalcommandrem? Zatím se mi odkaz otvírá v průzkumníku,ale totalcommander by byl pro mé potřeby lepší.
Díky za radu.

[Reklama]

[crgo77]

Zdravím všechny, pokouším se o to,abych mohl odkaz otevřít v total commanderu,ale nedaříse mi to.
Na googlu jsem dohledal kód VBA,ale bohužel mi to nefunguje ( možná to mám špatně umístěný-mám to umístěný na listu ).

Kód: Vybrat vše

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim AktRow As Long
 Dim Foldername As Long
 
  AktRow = ActiveCell.Row
 
    Foldername = hyperlinks "Z:\Total Commander\totalcmd.exe "" & Cells(AktRow, 1) & ", vbNormalFocus

End Sub



Mohl by mi někdo poradit,kde mám chybu?

[cmuch]

Pouprav dle sebe

Kód: Vybrat vše

Rem v tvem pripade bunka s hypertextovy odkaz
CelaCestaDoSlozky = "C:\slozka\"

Set ws = CreateObject("Wscript.Shell")
ws.Run "C:\programy\totalcmd\totalcmd64.exe -L " & CelaCestaDoSlozky

Problémy může působit mezera v názvu adresáře; zkuste, zda je nevyřeší, když do kódu vepíšete cestu ve tvaru pro MS DOS.
Z úplné cesty dosovskou cestu pohodlně zjistí makro DosovskáCestaAdresáře Davida Zbírala.

[crgo77]

Zdravím,bohužel jsem nepochopil jak je to myšleno.V současné době je na listu kolem 400 odkazů do složek a každá složka má jiný název a budou přibývat. jde o to,aby byl kód univerzální.
Omlouvám se,pokud jsem to nějak špatně vysvětlil.
Na listu mám odkazy do složek,ale v současné době se mi odkazy otvírají v průzkumníku.Potřeboval bych aby se mi otvítaly v např. totalcommanderu.

[crgo77]

Zdravím,tak se zkouším pohrát s kódem,který jste mi poradili,trochu jsem si ho upravil,vkládám upravený kód.

Kód: Vybrat vše

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

CelaCestaDoSlozky = Hyperlinks.Application.ActiveCell

Set ws = CreateObject("Wscript.Shell")
ws.Run "C:\totalcmd\totalcmd.exe -L " & CelaCestaDoSlozky
End Sub


podařilo se mi,aby se otevřel total commander,mám ale problém s tím,že se mi otevře i průzkumník z windows,a navíc,v total commanderu se mi to neotevře na aktuálním odkazu ( odkaz směřuje na složku na disku ).
Nevěděl by někdo,jak na to?