こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

環境はExcel 2002です

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

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

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

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

投稿日時 - 2013-01-16 06:32:32

QNo.7894265

すぐに回答ほしいです

質問者が選んだベストアンサー

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

投稿日時 - 2013-01-16 08:16:58

補足

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

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

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

投稿日時 - 2013-01-16 09:10:42

お礼

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

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

投稿日時 - 2013-01-16 09:19:37

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問