コマンドプロンプトでのgitの実行結果をExcel VBAでWshShellを使って取得する。

Question

Windows10のコマンドプロンプトにおいて、
gitの実行結果をExcel VBAでWshShellを使って取得しようとしているのですが
うまく行きません。
下記コードでfncWinScriptが空になります。
commandには、
git checkout コミットID
を渡しており、実行後はちゃんとcheckoutできています。
commandに、例えば、
ipconfig
を渡すとfncWinScriptに結果の文字列が入って返ってきます。
gitは何か特別なのでしょうか。

Public Function fncWinScript(実行パス As String, command As String) As String
Dim WSH		As WshShell
Dim wExcec	As Object

Set WSH = New WshShell
Set wExec = WSH.Exec("%ComSpec% /c " & "set LESSCHARSET=utf-8 && cd " & 実行パス & " && " & command)

Do While wExec.Status = 0
	DoEvents
Loop

Sleep(1000)
DoEvents

fncWinScript = wExec.StdOut.ReadAll

Set wExec = Nothing
Set WSH = Nothing

End Function

何か分かりましたらアドバイス頂きたくよろしくお願いいたします。

Answer 1

試してみると確かに標準出力には何も出てこないようですね。
特別というか、恐らく標準出力のクリアなどしているのでしょう。

じゃあ、何も出ていないのかというとそうではなく、標準エラー出力には何か出ていますので見てみましょう。

※ VBAではStdOutをStdErrに変えるだけです

やってみたところ、一応出てきますねこれで何をしたいのかは存じませんが、成功か失敗かは判別できそうな感じです。

cloneが成功した場合

Cloning into 'example-project'...

失敗した場合（既にcloneしたものがある）

fatal: destination path 'example-project' already exists and is not an empty directory.

Comments

[nayameru]

そういうことでしたか。。。
まさに「成功か失敗かは判別」したかっただけですので、これで行けます。
ありがとうございました。