[已解决]用vba怎么创建快捷方式？

qopani

用vba怎么创建快捷方式？

最佳答案

月排行榜 / 总排行榜

cbg2008

2012-2-25 20:15

借罗老师的VBA给你借鉴吧
Sub 创建一个快捷方式()
    Dim WshShell As Object, oShellLink As Object
    Set WshShell = CreateObject("WScript.Shell")
    Set oShellLink = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") & "\快捷方式.lnk")
    oShellLink.TargetPath = ThisWorkbook.FullName  '指定快捷方式的目标文件
    oShellLink.WindowStyle = 1          '窗口状态/运行方式
    oShellLink.Hotkey = "CTRL+SHIFT+F"  '打开该文件的快捷键
    oShellLink.IconLocation = "explorer.exe, 0"    '指定一个图标
    oShellLink.Description = "这是一个快捷方式"
    oShellLink.WorkingDirectory = WshShell.SpecialFolders("Desktop")
    oShellLink.Save    '保存
End Sub

跳转到最佳答案楼层

cbg2008

借罗老师的VBA给你借鉴吧
Sub 创建一个快捷方式()
    Dim WshShell As Object, oShellLink As Object
    Set WshShell = CreateObject("WScript.Shell")
    Set oShellLink = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") & "\快捷方式.lnk")
    oShellLink.TargetPath = ThisWorkbook.FullName  '指定快捷方式的目标文件
    oShellLink.WindowStyle = 1          '窗口状态/运行方式
    oShellLink.Hotkey = "CTRL+SHIFT+F"  '打开该文件的快捷键
    oShellLink.IconLocation = "explorer.exe, 0"    '指定一个图标
    oShellLink.Description = "这是一个快捷方式"
    oShellLink.WorkingDirectory = WshShell.SpecialFolders("Desktop")
    oShellLink.Save    '保存
End Sub

ztccsj

excel无所不能啊，如何活学活用呢

清风明月12

谢谢楼主分享，辛苦了！