Excel 建立一個桌面上捷徑

Emily

請參考外地朋友寫的編碼。需要在引用項目選取 Windows Script Host Object Model，編碼放在 Module 內。 Sub SetLink() Dim lnk As Object DesktopShortCut "c:\windows\notepad.exe" 'DesktopShortCut "d:\xxx.xls" End Sub Function DesktopShortCut(strFullFilePathName As String) As Long Dim WSHShell As IWshRuntimeLibrary.IWshShell_Class Dim WSHShortcut As IWshRuntimeLibrary.IWshShortcut_Class Dim strDesktopPath As String, workingdirectory As String Dim strFileName As String Dim strPath As String On Error GoTo ErrHandler Set WSHShell = New IWshRuntimeLibrary.IWshShell_Class strFileName = Dir(strFullFilePathName) strPath = Left(strFullFilePathName, _ Len(strFullFilePathName) - Len(strFileName)) If Not Len(strFileName) = 0 Then strDesktopPath = WSHShell.SpecialFolders.Item("Desktop") Set WSHShortcut = WSHShell.CreateShortcut _ (strDesktopPath & "\" & strFileName & ".lnk") With WSHShortcut .TargetPath = WSHShell. _ ExpandEnvironmentStrings(strFullFilePathName) workingdirectory = WSHShell. _ ExpandEnvironmentStrings(strPath) .WindowStyle = 4 .IconLocation = WSHShell. _ ExpandEnvironmentStrings(Application.Path _ & "\notepad.exe , 0") .Save End With DesktopShortCut = 1 Else DesktopShortCut = 0 End If Continue: Set WSHShell = Nothing Exit Function ErrHandler: DesktopShortCut = -1 Resume Continue End Function

Kevin

好文章！

13000

希望Emily能多搜刮一些E文精髓，造福我等农民，辛苦了！

red_orange

不太明白怎麼搞.能說詳細點嗎?

djy5210

如果我自己做了一个ico文件

.IconLocation = WSHShell. _ ExpandEnvironmentStrings("test.ico")，为什么生成的快捷方式不能显示这个图标呢

djy5210

知道了，路径搞错了

welcpa

good!!

yyxxdd

漂亮！谢谢版主！不能沉啊！

qqboy1

xue xi

qqboy1

好文章！