怎样使用VBA生成桌面快捷方式？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块冲粒

4、在模块当中输入如下代码，然后运行

Sub生成桌面快捷方式()

    Dim WSHShell As Object, MyShortcut
    Set WSHShell=CreateObject("WScript.Shell")
    Set MyShortcut=WSHShell.CreateShortcut(WSHShell.SpecialFolders
    ("Desktop") & "\当前工作簿的快捷方式.lnk") '捷径名
    With MyShortcut
      .TargetPath=ActiveWorkbook.FullName         '快捷方式的路径
        .WindowStyle=1                         '快捷方式的运行方式
    .Hotkey="Ctrl+q"                       '快捷方式的快捷键
    .IconLocation=WSHShell.ExpandEnvironmentStrings("%windir%\
      explorer.exe,7"良何王) '快捷方式的图标
    .Description="我的快捷方式！"             '备注
    .WorkingDirectory=WSHShell.SpecialFolders("Desktop")
    .Save                                  '保存
End With
   MsgBox "已经在桌面生成快捷方式,文件名为:" &暗肤 Chr(10) & "当前工作簿的_
    快捷方式" & Chr(10) & "单击确定进入桌面查看！", vbOKOnly+64, "建立完成"
Shell "explorer.exe " & CreateObject("WScript.Shell").SpecialFolders
  ("Desktop"), vbMaximizedFocus '打开桌面
End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出提示窗口，如图12.6所示，单击“确定”按钮后，程序打开桌面，新建的快捷方式如图