随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA生成桌面快捷方式？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub生成桌面快捷方式()DimWSHShel盟敢势袂lAsObject,MyShort艘早祓胂cutSetWSHShell=CreateObject("WScript.Shell")SetMyShortcut=WSHShell.CreateShortcut(WSHShell.SpecialFolders("Desktop")&"\当前工作簿的快捷方式.lnk")'捷径名WithMyShortcut.TargetPath=ActiveWorkbook.FullName'快捷方式的路径.WindowStyle=1'快捷方式的运行方式.Hotkey="Ctrl+q"'快捷方式的快捷键.IconLocation=WSHShell.ExpandEnvironmentStrings("%windir%\explorer.exe,7")'快捷方式的图标.Description="我的快捷方式！"'备注.WorkingDirectory=WSHShell.SpecialFolders("Desktop").Save'保存EndWithMsgBox"已经在桌面生成快捷方式,文件名为:"&Chr(10)&"当前工作簿的_快捷方式"&Chr(10)&"单击确定进入桌面查看！",vbOKOnly+64,"建立完成"Shell"explorer.exe"&CreateObject("WScript.Shell").SpecialFolders("Desktop"),vbMaximizedFocus'打开桌面EndSub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出提示窗口，如图1闸拊福律2.6所示，单击“确定”按钮后，程序打开桌面，新建的快捷方式如图
