订阅怎样使用VBA生成桌面快捷方式？
来源：网络收集 点击： 时间：2024-03-08首先在开发工具中打开VBA编辑器
2/5在单元格区域当中输入一些内容作为例子
3/5在VBA编辑器中插入模块
4/5在模块当中输入如下代码，然后运行
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/5用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出提示窗口，如图12.6所示，单击“确定”按钮后，程序打开桌面，新建的快捷方式如图
注意事项智能手机助理给我们的生活带来了极大的便利！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_293695.html
