Excel VBA :如何在每次点击时添加快捷方式？

Sub AddShortcut()
    Dim shortcut As Object
    Dim shortcutName As String
    Dim shortcutPath As String
    
    ' 设置快捷方式的名称和路径
    shortcutName = "MyShortcut"
    shortcutPath = "C:\Path\To\Your\File.xlsx"
    
    ' 创建快捷方式对象
    Set shortcut = CreateObject("WScript.Shell").CreateShortcut( _
        Environ("USERPROFILE") & "\Desktop\" & shortcutName & ".lnk")
    
    ' 设置快捷方式的目标路径
    shortcut.TargetPath = shortcutPath
    
    ' 保存快捷方式
    shortcut.Save
    
    ' 释放快捷方式对象
    Set shortcut = Nothing
End Sub