< návrat zpět

MS Excel


Téma: Otevření odkazu v jiné aplikaci než exploreru rss

Zaslal/a 27.6.2014 23:02

Zdravím všechny,nevěděl by někdo kód jak nastavit jiný prohlížeč na odkazy,které mám v sešitu?Předem díky za rady

Zaslat odpověď >

Strana:  1 2   další »
#020226
avatar
Mě se to otevírá do výchozího prohlížeče, takže jednou možností je nastavit tento jinak ;-)...
P.citovat
icon #020230
avatar
Napr. stránku wall.cz v Google Chrome?Sub test()
Shell "C:\Documents and Settings\al057494\Local Settings\Application Data\Google\Chrome\Application\chrome.exe http://wall.cz/", vbNormalFocus
End Sub
citovat
icon #020231
avatar
Trochu univerzálnejšie (v prvom príklade by si totiž vždy musel dopredu určiť umiestnenie *.exe súboru príslušného prehliadača, ktoré sa logicky na rôznych počítačoch môže líšiť).
Nebude sa jednať o hyperlink, ale o bunku(bunky), v ktorých budú webové adresy (môžeš naformátovať tak, aby na prvý pohľad vyzerali ako hyperlink, že to hyperlink fakticky nebude, snáď nevadí).
Príklad pre bunku B25 v ktorej bude napísané (presne, ako vidíš, t.j. bez úvodzoviek) napr.:
wall.cz
(v prípade ďalších buniek si jednoduchým spôsobom dotvoríš časť kódu uloženú v kódovom okne listu:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$25" Then Call test(Target.Value)
End Sub
.
Do modulu vložíš:Option Explicit

Private Declare Function SearchTreeForFile _
Lib "imagehlp" (ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long

Const Adresare = 100

Sub test(Site As String)
Dim strS As String
Dim lngL As Long
Dim Prehliadac As String
Prehliadac = "chrome.exe"
strS = String(Adresare, 0)
lngL = SearchTreeForFile("C:\", Prehliadac, strS)
If lngL <> 0 Then
Shell strS & "exe " & Site, vbNormalFocus
Else
MsgBox "Prehliadaè nebol nájdený!", _
vbCritical
Exit Sub
End If
End Sub

Pripravené pre otvorenie v Google chrome, v prípade iného prehliadača dáš do kódu miesto google.exe príslušný *.exe daného prehliadača. Po kliknutí do príslušnej bunky (v uvedenom príklade bunky B25) by sa malo stať to, čo potrebuješ.citovat
#020565
avatar
Zdravím všechny,zkoušel a pokoušel se poupravovat kódy,které mi byly porazeny,bohužel jsem neuspěl a nefunguje mi to. Zkouším i hledat na internetu,ale bohužel marně. Abych upřesnil můj problém - na listu mám spoustu odkazů ( na složky na síťovém disku),po kliknutí na odkaz se mi otevírá "průzkumník",ale potřeboval bych aby se mi otevíral buď total commander nebo altab salamander.
Předem děkuju za rady.citovat
icon #020567
avatar
Aha. Pár poznámok teda. Kód, ktorý som dával, je funkčný na XP. Od minulého týždňa mám Win7 a kód som musel malinko upraviť. Časť sub test by vyzerala nasledovne:Sub test(Site As String)
Dim strS As String
Dim lngL As Long
Dim Prehliadac As String
'Prehliadac = "chrome.exe" 'pre chrome
Prehliadac = "TOTALCMD.EXE" 'pre Total Commander, Altab Salamander nemam, ale bude to analogicke
strS = String(Adresare, 0)
lngL = SearchTreeForFile("C:\", Prehliadac, strS)
If lngL <> 0 Then
Shell WorksheetFunction.Substitute(strS, Chr(32), "") & " " & Site, vbNormalFocus
Else
MsgBox "Prehliadac nebol najdeny!", vbCritical
Exit Sub
End If
End Sub
Ostatné sa nemení, t.j. platí môj pôvodný príspevok. Som zvedavý, s čím prídeš za 3 týždne.citovat
#020597
avatar
Zdravím,je mi líto,ale bohužel mi to nefunguje.
Tu ironickou poznámku tak trochu chápu,ale bohužel jsem se k odpovědi dříve nedostal.
Pokud by někdo věděl jak řešit můj problém,budu rád za radu.citovat
icon #020599
avatar
Klikni na B25 alebo B26 a povedz mi, či sa otvorí Total Commander, alebo nie.. Na mojom ntb sa totiž otvorí 6
Příloha: zip20599_pom.zip (16kB, staženo 32x)
citovat
#020601
avatar
Trochu jsem se na to kouknul. Funguje mi to, poté, co jsem vynechal různé tanečky okolo zjištění cesty k souboru, kterým se má otevírat odkaz.
Vyzkoušej v příloze, je to řešení ala Al, nutné je si přepsat celou cestu na .exe soubor, kterým chceš otevřít odkaz, je to v modulu1 ve VBA. V list1 přepsat na nějaký svůj odkaz.
Ale každý odkaz si otevře svou instanci programu, pro mě nešikovné. To už radši v menu Total Com. mít seznam adresářů, kam chci přistupovat.
Příloha: zip20601_sesit1.zip (14kB, staženo 36x)
citovat
icon #020603
avatar
Funguje mi to, poté, co jsem vynechal různé tanečky okolo zjištění cesty k souboru, kterým se má otevírat odkaz. Tanečky sú tam kvôli tomu, že cesta k súboru sa môže na rôznych počítačoch líšiť 1 Písal som hneď na začiatku: Trochu univerzálnejšie (v prvom príklade by si totiž vždy musel dopredu určiť umiestnenie *.exe súboru príslušného prehliadača, ktoré sa logicky na rôznych počítačoch môže líšiť). Krom toho, môže sa líšiť i verzia prehliadača, v Tvojom prípade napr. 64bit. Holt, všetky eventuality neodchytím, poskytnem základ a adresát sa musí snažiť trochu sám, aby zistil, v čom je problém. Som trochu unavený z odpovedí v zmysle: "Nefunguje to, skús to znovu, keď ťa to baví, ja sa snažiť sám nebudem."citovat
#020604
avatar
Ano, já to chápu, ale Nováček-Ivan asi ne, tak jsem mu tímto chtěl nabídnout základní, jednoduché řešení, které si zvládne sám poupravit a uvidí (když se mu to podaří), jestli mu to takto stačí, nebo ne.
Mě to na první pokus nefungovalo.
Teď jsem objevil zádrhel v řádku:
WorksheetFunction.Substitute(strS, Chr(32), "")
Když mám v cestě k programu mezeru, odstraní ji to a Shell pak hlásí chybu.
asi by mělo být:
Shell strS & " " & Site, vbNormalFocuscitovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09