VBAでファイル名に日付を含むExcelファイルを日々作り出し、それと共にそれを起動するショートカット（名前は固定）を更新したいのですが、VBAからDOSコマンドを実行する方法は判ったのですが、DOSコマンドでショートカットを作る命令が在るのかどうかわかりません。またVBAから他に簡単な方法で同じことが出来る方法が在りますでしょうか？
投稿日時 - 2006-02-11 14:13:00
ＷＳＨを使うのが簡単です。
例えば、ＶＢＡで以下のような感じでします。
public sub mkupShortcut()
Dim objWshShell, objShortcut
Set objWshShell=CreateObject("WScript.Shell")
'CreateShortcut(ショートカットを作るフォルダ & ショートカット名（拡張子が.lnk）) サンプルはディスクトップ
Set objShortcut=objWshShell.CreateShortcut(objWshShell.SpecialFolders("Desktop") & "\ショートカット名.lnk")
'ショートカットを付けるファイル、付け替えれば更新になる。
objShortcut.TargetPath="C:\Excel\test.xls"
objShortcut.Save
End Sub
投稿日時 - 2006-02-11 15:12:43
お礼
ありがとうございます。早速試してみて目的のことができる様になりました。ＷＳＨというのはWindowsShellの略ですか？便利なものがあるのですね。少し勉強してみたいと思いました。
投稿日時 - 2006-02-12 11:43:42
2人が「このQ&Aが役に立った」と投票しています