Excel VBAでbatファイルを実行

質問

ExcelのVBAでbatファイルを実行し、
batファイル内でセットした環境変数を取得することは可能でしょうか？

batファイルの内容は
set MYDRIVE=E:
set MYDIR=%MYDRIVE%\WORK
のような感じです。

環境変数「MYDIR」の値をVBA側で取得できないかと思い、
' 参照設定: Windows Script Host Object Model
Sub ボタン1_Click()

Dim myWshShell As New WshShell
Dim myLong As Long
Dim myWshEnvironment1 As WshEnvironment
Dim myWshEnvironment2 As WshEnvironment
Dim myWshEnvironment3 As WshEnvironment
Dim myWshEnvironment4 As WshEnvironment

myLong = myWshShell.Run("E:\work\test.bat")

Set myWshEnvironment1 = myWshShell.Environment("System")
Set myWshEnvironment2 = myWshShell.Environment("User")
Set myWshEnvironment3 = myWshShell.Environment("Volatile")
Set myWshEnvironment4 = myWshShell.Environment("Process")

' ブレークポイントを設定して内容確認

Set myWshShell = Nothing
Set myWshEnvironment1 = Nothing
Set myWshEnvironment2 = Nothing
Set myWshEnvironment3 = Nothing
Set myWshEnvironment4 = Nothing

End Sub
のようなコードを書いてみて「myWshEnvironment1」～「myWshEnvironment4」の内容を
ウォッチ式で確認してみましたが、batファイルの中でセットした「MYDIR」の値は
含まれておりませんでした。

batファイルで設定した環境変数の値を取得する方法があれば
教えていただけないでしょうか？

回答No.2

NotFound404 · ベストアンサー

Batファイル（仮に、e:\asd.bat)の中身を
@echo off
set aaa=fff
echo %aaa%
としておいて
たとえば標準モジュールの場合ですが

Sub CMDget()
Dim wSh As Object, wExec As Object, Cmd As String, Result As String
Set wSh = CreateObject("Wscript.Shell")
Cmd = "e:\asd.bat"
Set wExec = wSh.exec("%ComSpec% /c " & Cmd)

Do While wExec.Status = 0
DoEvents
Loop

Result = wExec.StdOut.readall
MsgBox Result
Set wExec = Nothing
Set wSh = Nothing
End Sub

とすればメッセージボックスに、fff と表示されます。
が、先の回答のように、Batファイルが終了した時点で、
SET した 環境変数は消えてなくなるので
使い道が無さそうに思えますけど？
おしまい。

お礼

ありがとうございます。
環境変数にSETしているbatファイルは他のbatファイルから呼び出されているので、下手に触れないのですが、もう1個batファイルを作って、環境変数にSETしているbatファイルをCALLしたあとで、必要な環境変数の値をECHOして標準出力に出力するか、リダイレクトしてテキストファイルに出力すれば、Excel側で拾えそうですね。

(a.bat)
@echo off
set aaa=fff
set bbb=ggg

(b.bat)
@echo off
call "～\a.bat"

rem echoしたものをStdOutプロパティから拾う or リダイレクトしてテキストファイルから拾う
echo %1
rem echo %1 > "～\hoge.txt"

(VBA)
～(省略)～
Cmd="～\b.bat 環境変数名"
Set wExec = wSh.exec("%ComSpec% /c " & Cmd)
～(省略)～

回答No.1

NotFound404

SET コマンドで作成した環境変数は、そのコマンドプロンプト上（メモリ）だけで
有効になっているようです。
一個目のコマンドプロンプトで、set zzz=fff とし
set で zzz=fff が 返って来るのを確認。

もう一個コマンドプロンプトを立ち上げて SET としても先ほどの
zzz=fff は返ってきません。
最初のコマンドプロンプトで再度試すと、しっかり有ります。

なのでEnviron関数でも、Wscript でも取得できないようです。
Batファイルを実行後にコマンドプロンプトを立ち上げて確認してもありませんでしたし。

調べたら SETX なるものがレジストリに登録できるようですけど未検証です。
私はこの辺で退却します。

お礼

ありがとうございます。
Excelでコマンドプロンプトを起動して、
その中の環境変数が覗ければいいんですけど、
覗けないんですかね……