怎样使用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所示，单击“确定”按钮后，程序打开桌面，新建的快捷方式如图