フォルダのショートカットをVBAで作りたい

環境はExcel 2002です

自己ファイルを収納しているフォルダのショートカットをVBAで作りたいのです

ショートカットの作成場所は『マイドキュメント』にしたいのですが
自分のPCと会社のPCでは『マイドキュメント』が必ずしもCドライブとは限っていません

『マイドキュメント』の場所も自動取得してショートカットを作る方法を教えてください

*昨日、ウィルス対策のカテゴリーに間違えて質問してしまいました

No.1 ベストアンサー 回答者： kybo 回答日時： 2013/01/16 08:16

C:\へのショーカットをマイドキュメントに作成する例です。

Sub macro()
Dim O As Object
Dim S As Object
Set O = CreateObject("WScript.Shell")
Set S = O.CreateShortcut(O.SpecialFolders("MyDocuments") & "\マイフォルダ.lnk")
S.Description = "マイドキュメント"
S.TargetPath = "C:\"
S.Save
End Sub

この回答への補足

早速の回等ありがとうございました
質問の内容が伝わらなかったようです。申し訳ありません。

今エクセルブック【aaa】をオープンしています
作業終了後ＶＢＡで保存しますが
保存と同時にブック【aaa】のショートカットをマイドキュメントに作りたいのです

マイドキュメントの場所が使用するＰＣによって異なるので
マイドキュメントの場所を取得してショートカットを作る
この一連の作業をＶＢＡでやりたいのです
お手数をおかけしますがよろしくお願いします

補足日時：2013/01/16 09:10

この回答へのお礼

回答に返信した補足も内容不備でした
一度質問を取り消しさせてもらい
再度質問させてもらいます

誠に申し訳ありませんでした

お礼日時：2013/01/16 09:19