Creating a SHORTCUT to a file in XLSTART

[jason]

probably a lot easier than I imagine this one!
i'd like to progrmmatically create a shortcut to a file in my XLstart file.

anybody any ideas?

 

[Steve Yandl]

You can use the WScript shell object. The sub below will find the XLstart
folder and place a shortcut called StartABC that targets the workbook
C:\test\abc.xls.

Sub xlstartLINK()
Dim wsh As Object
Dim lnk As Variant
Dim strXLstart As String
strXLstart = Application.StartupPath
Set wsh = CreateObject("WScript.Shell")
Set lnk = wsh.CreateShortcut(strXLstart & "\StartABC.lnk")
lnk.TargetPath = "C:\test\abc.xls"
lnk.Save
End Sub

Steve

 

[jason]

Cheers Steve

You can use the WScript shell object. The sub below will find the XLstart
folder and place a shortcut called StartABC that targets the workbook
C:\test\abc.xls.

Sub xlstartLINK()
Dim wsh As Object
Dim lnk As Variant
Dim strXLstart As String
strXLstart = Application.StartupPath
Set wsh = CreateObject("WScript.Shell")
Set lnk = wsh.CreateShortcut(strXLstart & "\StartABC.lnk")
lnk.TargetPath = "C:\test\abc.xls"
lnk.Save
End Sub

Steve