Skapa genväg

Skapa genväg till arbetsbok och mapp

Här demonstreras tekniker för att skapa genvägar till en arbetsbok respektive till en mapp direkt på skrivbordet. Detta kan vara önskvärt om vi t ex vi vill ha snabb tillgång till en arbetsbok/mapp i ett nätverk.

För att skapa egna ikoner för MS Excel se Egna ikoner för MS Excel.

Såväl arbetsbok som mapp måste existera för att genvägarna ska kunnas skapas.

Option Explicit

Sub Skapa_Genvag_Arbetsbok()

   '© 2001 - 2002 Alla rättigheter XL-Dennis

   Dim oWSS As Object, oGenvag As Object

   Dim stSkrivbordsSokvag As String

    Set oWSS = CreateObject("WScript.Shell")

    With oWSS

      stSkrivbordsSokvag = .SpecialFolders("Desktop")

      Set oGenvag = .CreateShortcut(stSkrivbordsSokvag & _

            "\" & ThisWorkbook.Name & ".lnk")

   End With

    With oGenvag

      .TargetPath = ThisWorkbook.FullName

      .IconLocation = ThisWorkbook.Path & "\Staroffice.ico"

      .Save

   End With

    Set oWSS = Nothing

End Sub

I nästa exempel visas hur en genväg till en mapp skapas på skrivbordet.

Sub Skapa_Genvag_Mapp()

   '© 2001 - 2002 Alla rättigheter XL-Dennis

   Dim oWSS As Object, oGenvag As Object

   Dim stSkrivbordsSokvag As String

    Set oWSS = CreateObject("WScript.Shell")

   With oWSS

      stSkrivbordsSokvag = .SpecialFolders("Desktop")

      Set oGenvag = .CreateShortcut(stSkrivbordsSokvag & _

            "\XL-Filer.lnk")

   End With

    With oGenvag

      .TargetPath = "C:\XL-Filer"

      .Save

   End With

    Set oWSS = Nothing

End Sub