Odpiranje določene spletne strani

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odpiranje določene spletne strani

Odgovor Napisal/-a BJ »

Pozdravljeni!
Prosim za pomoč.
Na listu imam ukazni gumb, s katerim bi rad odprl določeno spletno stran.
(brskalnik: IE ali Google Chrome)
Zadeva je verjetno čisto preprosta, vendar jaz nimam ideje.
Hvala!
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Odpiranje določene spletne strani

Odgovor Napisal/-a admin »

Pozdravljeni,

Res je dokaj enostavno:

Koda: Izberi vse

Sub skociNaSplet(kam As String)
On Error GoTo napaka
  ThisDocument.FollowHyperlink Address:=kam, NewWindow:=True
  Exit Sub
 
napaka:
  MsgBox "Trenutno ne morem prikazati strani " & kam
End Sub

Sub test()
    skociNaSplet "https://mnet.si"
End Sub
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: Odpiranje določene spletne strani

Odgovor Napisal/-a BJ »

Najlepša hvala za pomoč.
Ste mi dal idejo.
Vse skupaj sem še bolj poenostavil.
Vesele prihajajoče praznike vam želim!

Koda: Izberi vse

Private Sub cb3_Click()
 List3.Range("A2").Hyperlinks.Item(1).Follow NewWindow:=True
End Sub
Odgovori