Access VBAでmicrosoft teamsを起動したい

Question

Access2019のフォームにてmicrosoft Teamsを起動する

ボタンを配置したいと思っております。

自分なりに調べたところ、shell関数を使用して下記プログラムにて実行はできました。

    Dim rc As Long

    rc = Shell("C:\Users\PC名\AppData\Local\Microsoft\Teams\current\Teams.exe", vbNormalFocus)

    If rc = 0 Then MsgBox "起動に失敗しました"

これを応用して別のパソコン(PC名の異なるパソコン)で本プログラムを使用したいと思っていますが

その場合、Pathname部分をどのようにしたら良いでしょうか。

    Dim rc As Long

    rc = Shell("%LocalAppData%Microsoft\Teams\current\Teams.exe", vbNormalFocus)

    If rc = 0 Then MsgBox "起動に失敗しました"

としたところ、実行時エラー53：ファイルが見つかりません。

となってしまいます。

ご教授の程お願いいたします。

Answer 1

> rc = Shell("C:\Users\PC名\AppData\Local\Microsoft\Teams\current\Teams.exe", vbNormalFocus)

「PC名」というより「ユーザー名」だと思いますが。

> rc = Shell("%LocalAppData%Microsoft\Teams\current\Teams.exe", vbNormalFocus)

rc = Shell(Environ("LocalAppData") & " ****Microsoft\Teams\current\Teams.exe", vbNormalFocus)

Answer 2

sk.exe様

いつもありがとうございます。

おかげさまでばっちりできました。

色々と関数ありますね。

いつも勉強になります。

今後ともよろしくお願いいたします。