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

Question

Windows10のコマンドプロンプトにおいて、
ある実行ファイルの実行結果をExcel VBAでWshShellを使って取得しようとしているのですが
うまく行きません。
下記コードでfncWinScriptが空になります。
コマンドプロンプトでの手動実行では、実行完了までに1分10秒程度掛かりますが、
下記コードでも同じくらいの時間で返ってきますので、実行完了はしていると思われます。
コマンドプロンプトでの手動実行では、
数字がインクリメントされたりの進捗表示があってから
（ここが曲者ではないかと考えています）、
2400行程度の結果が出力されます。
output = output & wExec.StdOut.Read(1)
は、これが無いとStatusが0のままループを抜けないので、入れています。
outputには上記進捗表示の表示履歴が入っているようです。

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

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

Do While wExec.Status = 0
	output = output & wExec.StdOut.Read(1)
	DoEvents
Loop

Sleep(1000)
DoEvents

fncWinScript = wExec.StdOut.ReadAll()

Set wExec = Nothing
Set WSH = Nothing

End Function

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

Answer 1

outputを捨てているからでは？

fncWinScript = output & wExec.StdOut.ReadAll()

Comments

[nayameru]

そうですね。
outputに何か入っているようですので何とかなりそうです。
wExec.StdOut.Read(1)
wExec.StdOut.ReadAll()
の使い方がよく分かりませんが。
wExec.StdOut.ReadAll()
は空になるのですかね？

[otn]

文字通りなのですが、、、Read(1)は1文字読む、ReadAll()は全部読む（まだ読んでいない物全部）。

何のために output = output & wExec.StdOut.Read(1) しているのでしょうか？

[nayameru]

ありがとうございます。非常に助かります。

> 何のために output = output & wExec.StdOut.Read(1) しているのでしょうか？

> output = output & wExec.StdOut.Read(1)
> は、これが無いとStatusが0のままループを抜けないので、入れています。
なのですよね。。。なぜか。。。

[otn]

そうか。2400行と言うことなので、パイプのバッファー以上のデータサイズになり、読んであげないと書き込み側が待ちになるんですね。データが数百バイトだと不要のはずです。

[nayameru]

ありがとうございます。そうなんですね。勉強になります。