Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Desktop Shorcuts
Is there a way that I can (via VBA) create a shortcut to a spreadsheet or
folder on the desktop. (Example: My application (wizard) has data for the user to fill out. When he/she presses finish, the wizard fills out the form, creates a folder and saves the form into that folder. The user then would like the wizard to create a desktop shortcut to that folder so that he/she can work with the files at a later time (Engineering Maintenence). |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Desktop Shorcuts
Here's an example:
Sub MakeDesktopShortcut() Dim wsh As Object Dim SC As Object Dim DesktopPath As String Set wsh = CreateObject("WScript.Shell") DesktopPath = wsh.SpecialFolders.Item("Desktop") Set SC = wsh.CreateShortcut(DesktopPath & "\test.lnk") SC.TargetPath = "C:\book1.xls" SC.Hotkey = "CTRL+ALT+Z" SC.Save Set wsh = Nothing End Sub -- Jim Rech Excel MVP "asmenut" wrote in message ... | Is there a way that I can (via VBA) create a shortcut to a spreadsheet or | folder on the desktop. | (Example: My application (wizard) has data for the user to fill out. When | he/she presses finish, the wizard fills out the form, creates a folder and | saves the form into that folder. The user then would like the wizard to | create a desktop shortcut to that folder so that he/she can work with the | files at a later time (Engineering Maintenence). |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Desktop Shorcuts
ahhhhh amaaazing,... that was just what I needed to deliver a project t a client. thanks loads! -- FastOneBa ----------------------------------------------------------------------- FastOneBaz's Profile: http://www.excelforum.com/member.php...nfo&userid=973 View this thread: http://www.excelforum.com/showthread.php?threadid=26924 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
EXCEL FILES SAVED TO DESKTOP WILL NOT OPEN FROM DESKTOP | Excel Discussion (Misc queries) | |||
Shorcuts or Macro for Creating If Else Statements | Excel Worksheet Functions | |||
Excel shorcuts | New Users to Excel | |||
Shorcuts | Excel Discussion (Misc queries) | |||
disabling shorcuts | Excel Programming |