No.2ベストアンサー
- 回答日時:
フォルダのショートカットの場合は、以下の様な感じになります。
フォルダ<aaa>はVBAで作成しているのですよね。
そのパスに適宜変更して下さい。
Sub macro()
Dim O As Object
Dim S As Object
Set O = CreateObject("WScript.Shell")
Set S = O.CreateShortcut(O.SpecialFolders("MyDocuments") & "\aaa.lnk")
S.Description = "aaa"
S.TargetPath = "C:\aaa\"
S.Save
End Sub
この回答への補足
パスの変更にチョットつまづきましたが
どうにか動きました。ありがとうございました
プロシージャーは下記にしました
'◆マイドキュメントにフォルダのショートカットを作る
Dim O As Object
Dim S As Object
Set O = CreateObject("WScript.Shell")
Set S = O.CreateShortcut(O.SpecialFolders("MyDocuments") & "\" & DepoF & ".lnk")
’S.Description = DepoF
S.TargetPath = SaveDir
S.Save
質問の例題の "C:\aaa\"がSaveDir、aaaがDepoFです
S.Description = DepoFを殺しました
S.Description = DepoFを生かすと
マイドキュメントにショートカット(名前:DepoF)はできるのですが
フォルダの色のショートカットにならず、案の定ショートカットでフォルダを開くことはできませんでした
試行錯誤ですがS.Description = DepoFを殺すと通常のフォルダの色のショートカットができあがり
ショートカットでフォルダを開くことができました
質問の例題通り、Cドライブにフォルダ<aaa>、ブック【bbb】をセットして
回答いただいたプロシージャーを実行してもエラーは発生しませんでした
S.Description = DepoFの意味と、エラーが発生する原因を教えていただけれと思います
このままでは、なんか安心できないので……
No.3
- 回答日時:
>S.Description = DepoFの意味と、エラーが発生する原因を教えていただけれと思います
ショートカットで右クリック→プロパティ→ショートカットのタブの「コメント」欄に記載のものです。
作成されたショートカット上にマウスをポイントしてみて下さい。
そうすれば、コメントが表示されますよね。それの設定ですので、特になくても問題ありません。
私のWindowsXP環境では問題なく作成されますが、OSの種類などで、エラーになるのかもしれませんので、消しても問題ないかと思います。
No.1
- 回答日時:
さっきの応用ですよ。
S.TargetPath = "C:\aaa\bbb.xls"
の部分は、aaaのフォルダがどこに作成されているのか不明なので、パスは適宜変更して下さい。
Sub macro()
Dim O As Object
Dim S As Object
Set O = CreateObject("WScript.Shell")
Set S = O.CreateShortcut(O.SpecialFolders("MyDocuments") & "\bbb.lnk")
S.Description = "bbb"
S.TargetPath = "C:\aaa\bbb.xls"
S.Save
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Windows 10 ショートカットの作り方と使い方について教えて下さい。 3 2022/05/27 08:44
- Windows 10 ショートカットの使い方について教えて下さい。 2 2022/06/21 15:27
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ショートカットとコピーの違いは?
-
ショートカットのはずし方
-
返信の際の「>」記号を一括で付...
-
ショートカットって何ですか?
-
ショートカットの貼り付けが出...
-
複数のショートカットの作り方...
-
ユーザー間のソフト共有の制限
-
ショートカットが開けません
-
ショートカットキーの設定と解除
-
win ショートカットを検索したい
-
ショートカットフォルダの共有...
-
ワードパットのソフトが、消え...
-
Webページを開く際のセキュリテ...
-
ショートカットの名前変更
-
シャットダウン時にメッセージ...
-
OUTLOOKが二重起動される
-
バッチファイル ショートカッ...
-
Windows7セキュリティ警告の解...
-
ウィンドウ最大化のショートカット
-
ウェブ等でチェックボックスを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ショートカットとコピーの違いは?
-
ショートカットのはずし方
-
返信の際の「>」記号を一括で付...
-
ショートカットって何ですか?
-
Webページを開く際のセキュリテ...
-
ユーザー間のソフト共有の制限
-
Windows10、ペイント3Dの起動フ...
-
ショートカットが開けません
-
Microsoft sharepointに共有フ...
-
OUTLOOKが二重起動される
-
複数のショートカットの作り方...
-
ショートカットで開いたファイ...
-
ショートカット添付メールが開...
-
ショートカットキーの設定と解除
-
ショートカットの作り方と使い...
-
共有フォルダにアクセスすると...
-
シャットダウン時にメッセージ...
-
エクスプローラを最大化表示す...
-
エクセルVBAでショートカッ...
-
w10を使っています! ■デスクト...
おすすめ情報