vba ローカルのプログラム呼び出し

質問

共有フォルダにある共有エクセルファイル(マクロ入)から
そのファイルを使用しているPCにはいっているプログラムを起動させたいです。
使用者たちのパスはほぼ共通ですが、パスの一部に使用者のユーザ名が入っていて
そこは使用している人に合わせて変えなければなりません。

どうするのが一番簡単でしょうか。

とりあえずユーザを取って、そのほかの共通のパスをくっつけて
絶対パスで指定しようと思っているのですが
この案でいいのでしょうか？

vbaで以下を実行すると、
ファイルを実行しているユーザ名がとれるのか、ファイルがおいてあるPCのユーザ名を取るのか、わかりません。（テストしたいのですが、現在サーバーがなくできません）

Set objNetWork = CreateObject("WScript.Network")

'ユーザ名
Debug.Print "UserName = " & objNetWork.UserName

ご存知の方、教えて下さい。

回答No.1

eden3616 · ベストアンサー

ネットワーク上から見た共有フォルダへのアクセスを行うのであればコンピューター名になります。
（\\pcName\共有フォルダ名\プログラムファイル名.exe等）

Dim objNetWork As Object
Dir pcName As String
Dir path As String
Set objNetWork = CreateObject("WScript.Network")
pcName = objNetWork.ComputerName
path = "\\" & pcName & "\共有フォルダ名\プログラムファイル名.exe"

実行者のPC（ユーザーフォールダ内）を参照するのであれば、ユーザー名になります。
（C:\Users\userName\Documents\プログラムファイル名.exe等）

Dim objNetWork As Object
Dir userName As String
Dir path As String
Set objNetWork = CreateObject("WScript.Network")
userName = objNetWork.UserName
path = "C:\Users\" & userName & "\Documents\プログラムファイル名.exe"

お礼

WOOOOOW!!
勉強になります！ありがとうございます！！

回答No.2

eden3616

No1訂正です。

型宣言部の2行分　Dir→Dim

失礼しました。