Make shortcut to Excelfile on desktop

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

excelent - 15 Sep 2007 13:20 GMT

Hi all

I got a Workbook Test.xls
in cell B2 i have a hyperlink to G:\Temp\Temp2

When i click on that link, the map with files popup
Then rightclick on file Test2.xls and select send to
deskto as shortcut

Hav can i make that happens automatic with a macro
so when i click on the link, the shortcut to Test2.xls
is send to desktop ?

Thanks in advance

Reply to this Message

Steve Yandl - 16 Sep 2007 01:07 GMT

You can create a subroutine that would send a shortcut to
"G:\Temp\Temp2\Test2.xls to your desktop. However, if you're always going
to be sending the same shortcut to the desktop, it seems it would be quicker
to manually create the shortcut than it would be to write the subroutine or
do you really want to accumulate many duplicate shortcuts to Test2.xls on
your desktop?

Steve

> Hi all
>
[quoted text clipped - 10 lines]
>
> Thanks in advance

Reply to this Message

excelent - 16 Sep 2007 06:08 GMT

Hi Steve - tks. for reply :-)

Y your right, for me it would be easey, but still for many users
Excel and computers is something like "hmm do we have to use that"?
So my plan was to make it easey for them.

Until now we had 2 files, now it is merged to 1 new file named Test.xls
its on a network drive, so anyone can use that file.
They dont no i make a new file until they open the old file, where the
link to new file is.

Do u no haw to make that subroutine ?

"Steve Yandl" skrev:

> You can create a subroutine that would send a shortcut to
> "G:\Temp\Temp2\Test2.xls to your desktop. However, if you're always going
[quoted text clipped - 19 lines]
> >
> > Thanks in advance

Reply to this Message

Steve Yandl - 16 Sep 2007 18:29 GMT

Here is an example that creates a new desktop shortcut to
"C:\Test\Bookx.xls"

__________________________________

Sub CreateDesktopShortcut()

strFilePath = "C:\Test\Bookx.xls"

Set objShell = CreateObject("Shell.Application")
Set wsh = CreateObject("WScript.Shell")

' Find path to desktop on this PC
strDeskPath = objShell.Namespace(&H10&).Self.Path

' Create the shortcut
Set newLnk = wsh.CreateShortcut(strDeskPath & "\Shortcut to Bookx.xls.lnk")
newLnk.TargetPath = strFilePath
newLnk.Save

Set objShell = Nothing
Set wsh = Nothing
End Sub

__________________________________

Steve

> Hi Steve - tks. for reply :-)
>
[quoted text clipped - 37 lines]
>> >
>> > Thanks in advance

Reply to this Message

excelent - 16 Sep 2007 18:54 GMT

woohoo did that do the job ?
it sure did,
ur the man Steve
great job tanks

p.m.

"Steve Yandl" skrev:

> Here is an example that creates a new desktop shortcut to
> "C:\Test\Bookx.xls"
[quoted text clipped - 65 lines]
> >> >
> >> > Thanks in advance

Reply to this Message