Iz neta sem nekje naredi copy/paste html dokumenta v Excel. V celicah sedaj piše Spletna stran, v ozadju pa seveda je link. Kako te linke dobiti kot besedilo, ker bi jih rad nekam shranil.
Grega
Pokaži hyperlinke kot besedilo
Re: Pokaži hyperlinke kot besedilo
Pozdravljeni,
Za vsako povezavo lahko vidite kam kaže tako, da v celici kliknete desni miškin gumb. Odpre se hitri meni, kjer izberete opcijo Hiperpovezava in odpre se vam okno, kjer lahko vidite kam kaže povezava.
Spodaj pa sem vam napisal tudi makro, ki to naredi za več celic hkrati. Označite poljubno območje celic in izvedite makro, ki vam bo - če bo našel povezave na označenem območju(!) - odprl nov list in vam na novem listu v kolon A zapisal besedilo celice, v kolon B pa povezavo, na katero vsebina te celice kaže:
Za vsako povezavo lahko vidite kam kaže tako, da v celici kliknete desni miškin gumb. Odpre se hitri meni, kjer izberete opcijo Hiperpovezava in odpre se vam okno, kjer lahko vidite kam kaže povezava.
Spodaj pa sem vam napisal tudi makro, ki to naredi za več celic hkrati. Označite poljubno območje celic in izvedite makro, ki vam bo - če bo našel povezave na označenem območju(!) - odprl nov list in vam na novem listu v kolon A zapisal besedilo celice, v kolon B pa povezavo, na katero vsebina te celice kaže:
Koda: Izberi vse
Sub DobiVsePovezave()
Dim list As Worksheet: Set list = Nothing
Dim celica As Range
Dim r As Long: r = 1
Dim l As Integer
For Each celica In Selection
If (celica.Hyperlinks.Count > 0) Then
If (list Is Nothing) Then Set list = Worksheets.Add
For l = 1 To celica.Hyperlinks.Count
list.Cells(r, 1) = celica.Value2
list.Cells(r, 2) = celica.Hyperlinks(l).Address
r = r + 1
Next
End If
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Pokaži hyperlinke kot besedilo
Super ste, hvala.