Excel, følge hyperlink i macro

[deaktivert443556]

Med svært lite kjennskap til VBA satte jeg i gang med å lage et skjema i Excel som skal brukes i jobben. Etter mye googling har jeg tilegnet meg en god del kunnskap og jeg har klart å implementere alle funksjonene som jeg hadde lyst til å ha med. Dvs, alle utenom én.

 

Det høres jo så enkelt ut, men jeg klarer ikke å lage en macro som følger en hyperlink når hyperlinken er lagd med =HYPERKOBLING-funksjonen. Dersom jeg manuelt lager en hyperlink i celle A1, da kan jeg enkelt følge den med følgende kode

Range("a1").Select
Selection.Hyperlinks(1).Follow

Men denne koden fungerer ikke dersom hyperlinken er lagd med funksjonen =HYPERKOBLING. Dessverre er jeg avhengig av å bruke denne funksjonen (tror jeg), siden linken endres ut ifra hvilken avdeling brukeren sitter på.

Feilen jeg får er "Subscript out of range"

 

Er det mulig å unngå denne feilen på noen måte?

[Harald Staff]

Virker den når du klikker på den ? Noen ganger krever den http først dersom det mangler. Se om

ActiveWorkbook.FollowHyperlink Address:="http://" & Range("A1").Value

fungerer.

 

HTH. Beste hilsen Harald

Endret 3. oktober 2006 av Harald Staff

[aadnk]

Evt. kan du benytte ShellExecute:

 

' Plasser dette øverst i modulen

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

 

Const SW_SHOWNORMAL = 1

 

Public Sub Execute(sCommand As String)

   

    ' Kjør kommando

    ShellExecute 0&, vbNullString, sCommand, vbNullString, "C:\", SW_SHOWNORMAL

   

End Sub

 

Sub Main()

   

    ' Åpner google.com

    Execute "http://www.google.com/"

 

End Sub

[deaktivert443556]

Virker den når du klikker på den ? Noen ganger krever den http først dersom det mangler. Se om

ActiveWorkbook.FollowHyperlink Address:="http://" & Range("A1").Value

fungerer.

 

HTH. Beste hilsen Harald

6992481[/snapback]

Takk for tipset, men linken peker ikke til en internettside, men til mappen hvor Excel-arket blir lagret. Det er ikke så nøye uansett. I dag fikk jeg betalt for skjemaet mitt, så da gidder jeg ikke anstrenge meg så mye for å gjøre endringer :!:

 

Evt. kan du benytte ShellExecute:

Funker helt utmerket! Den funksjonen gir meg for så vidt også muligheten til å ta med noe som jeg har tenkt litt på. Nemlig å gi brukeren mulighet for å gå direkte til språkendringsverktøyet dersom språket ikke allerede er satt til norsk (veldig mange på jobben som har Office på dansk uten at de vet at de kan endre på det).