VBAで日報を作っています。

質問

VBAで日報を作っています。
日報はほとんどできましたが、
みんなで使っている全体のスケジュール管理ソフトがあり、
VBAで日報を自動で処理している途中で、全体のスケジュールソフトを起動させ実行させたと
思っています。
今のVBAの途中に付け加えたいと思っています。
VBAで日報を処理している途中でデスクトップにあるショートカットのプログラムを実行させる
事はできるのでしょうか？
Shellで他のプログラムを実行できると聞いたことがあるのですが、
人により、デスクトップのパスが違ってくると思うので、パスを取得し
そのパスにあるショートカット（exe）を実行させ、開いた画面にある
スタート（A）を押したいのですが、VBAでできまでしょうか？
説明が下手なので、すみませんがよろしくお願いします。

回答No.2

saneppie · ベストアンサー

パスの取得にはWScript.Shellオブジェクトを使うのですが、
No.1さんの例がVB6でしたので、すぐに使えるコードにしてみました。
デスクトップに「メモ帳」のショートカットがある場合です。

Set WSH = CreateObject("WScript.Shell")
Dim Path As String
Path = WSH.SpecialFolders("Desktop") & "\" & "メモ帳.lnk"
Set LnkFile = WSH.CreateShortcut(Path)

Dim rc As Double
rc = Shell(LnkFile.TargetPath, vbNormalFocus)
If rc = 0 Then MsgBox "起動に失敗しました"

Set LnkFile = Nothing
Set WSH = Nothing

ショートカットはexeそのものではありませんので、
ショットカットのリンク先であるexeのパスを取得してこれをShellで起動しています。
あと、WSH.SpecialFolders("Desktop")のところを、WSH.SpecialFolders("MyDocuments")にするとマイドキュメントのパスの取得になります。

お礼

早速の回答ありがとうございます。
上記を実行すると、
rc = Shell(LnkFile.TargetPath, vbNormalFocus)
で止まってしまいます。
どうしてでしょうか？

回答No.3

tom11

ここまでヒントもらったら、
後は、検索したほうが早いですよ。

http://www.happy2-island.com/vbs/cafe02/capter00110.shtml

お礼

そうですね。
自分で色々考えてみますね。
ありがとうございまいた。

回答No.1

tsukasa-12r

デスクトップのパスの取得方法については、こちら↓が参考になるかと。
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200608/06080041.txt

お礼

ありがとうございました。
未だに完成しませんが、色々知識を得ようと思っています。