VBA shell関数でアプリ起動のパス指定

Question

複数ユーザーで一つのPCを使用する環境で、VBAのshell関数でアプリを起動したいです。
デスクトップ上のアプリを起動したいのですが上手くいきません。

Dim i As Integer
i = Shell("C:\Users%USERNAME%\Desktop\test.exe", vbNormalNoFocus)

%USERNAME%の部分をユーザー名にすると問題なく起動するのですが、変数に問題があるのでしょうか？
ご教示いただければ幸いです。
よろしくお願いします。

Answer 1

Shell 関数で環境変数は使えません。Environ 関数で環境変数を取得し、自分で文字列を組み立ててください。

Comments

[ttii]

ご回答ありがとうございます。Shell 関数で環境変数はそもそも使えないのですね。
Environ 関数というものを調べてみます。ありがとうございました。

Answer 2

環境変数使いたいなら「VBA 環境変数」でググると良いと思うけど、ユーザープロファイルのフォルダ名はUSERNAMEと確実に一致しているとは言えない気がするので、USERPROFILEの方を参照すべきだと思います。

---

補足
Windows10でMicrosoftアカウントを利用してWindowsのユーザーアカウント作った時にプロファイルのフォルダ名が変なところで切れてたことがありました。（[e-mail]で作ったらC:\Users\genta\みたいになった）

Comments

[ttii]

ご回答ありがとうございます。
USERPROFILEも一度試してみましたが上手く動作しませんでした。
VBA 環境変数で調べたところWshShellで代用できそうです。shell関数と同じく非同期で動作して欲しいので色々とテストしてみます。

[gentaro]

ググったら、環境変数使うなら「Environ関数」を使う方法が出るよね、という趣旨でした。もう一つの回答と言いたいことは同じだけど、自分でググって色々調べたほうが為になると思って直接の回答を避けてました。

[ttii]

まだVBAに関して初心者で調べ方もわからず、環境変数というのも今回初めて知りました。
これを機に自分でも色々と調べてみます。
ありがとうございました。

Answer 3

デスクトップはPC毎に異なる所有者名などが含まれるフォルダーパスを以下のように取得します。

Dim i As Integer
i = Shell(CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\test.exe", vbNormalNoFocus)

Comments

[ttii]

ご回答ありがとうございます。
テストしてみたところ上手く動きました！
とても勉強になりました。
本当にありがとうございます！