Ярлык книги на рабочий стол

[FoxRiver]

Здравствуйте уважаемые форумчане. У меня такой вопрос, как можно создать ярлык на книгу и скопировать ее на рабочий стол через VBA? Т.е. у меня есть книга, я хочу чтобы при закрытии данная книга создавала ярлык на себя и копировал ее на рабочий стол.
Заранее спасибо!

[Mint86]

Посмотрите это других методов я не знаю, может кто другой...

[VictorM]

Вот еще пара примеров с сайта pashulka

Пример создания ярлыка на рабочем столе - для Microsoft Excel

With CreateObject("WScript.Shell") 
     With .CreateShortcut(.SpecialFolders("Desktop") & "\Excel.lnk") 
          .TargetPath = Application.Path & "\EXCEL.EXE" 
          .Description = "Проба пера" 'необязательно 
          .Save 
     End With 
End With

Пример создания ярлыка для текущей книги. Обратите внимание на то, что в данном примере, предполагается, что текущая книга уже была сохранена и речь идёт о руссифицированной версии Windows.

iPath = ThisWorkbook.Path & "\" 
iFileName = ThisWorkbook.Name 

CreateObject("Shell.Application").NameSpace(iPath).ParseName(iFileName).InvokeVerb "Создать &ярлык"

[SAS888]

Посмотрите еще пример с помощью "Windows Script Host Object Model".
При закрытии файла создается, или обновляется (если ярлык на эту книгу уже был создан ранее) ярлык на рабочем столе с именем файла. В коде есть ссылка на иконку (разберетесь).

[FoxRiver]

Mint86, VictorM, SAS888 спасибо огромное помогли !!!