Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

DeskTop-Link zu einer Excel-Arbeitsmappe erstellen

Gruppe

Wsh

Problem

Es soll ein DeskTop-Link zu einer in Zelle B1 genannten Excel-Arbeitsmappe erstellt werden. In der Entwicklungsumgebung muss ein Verweis zum Windows Scripting Host geschaltet sein.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub MakeDesktopShortcut()
    Dim wsh As New IWshShell_Class
    Dim SC As IWshShortcut_Class
    Dim sPath  As String, sFile As String
    sPath = wsh.SpecialFolders.Item("Desktop")
    sFile = Range("B1").Value
    Set SC = wsh.CreateShortcut(sPath & "\test.lnk")
    SC.TargetPath = sFile
    SC.Hotkey = "CTRL+ALT+Z"
    SC.Save
    Set wsh = Nothing
End Sub