Excelで、WScript.Shell、標準出力

質問

Excelで、WScript.Shellを使って、標準出力を経由してデータを取得
Excelで、CreateObject("WScript.Shell")を使って、標準出力を経由してデータを取得したいと考えたのですが、サイズに制限がありそうです。
標準出力のサイズが4096バイトを超えると、DOS窓が閉じず、強制的に終了させると超えた分はどこかへ消えました。
下記のコードで確かめたのですが、何かこの容量の制限を取り払う方法はないでしょうか？

Sub Sample1標準出力0()
Dim WSH, wExec
Dim sCmd As String
Dim Result As String

Set WSH = CreateObject("WScript.Shell")
sCmd = "type D:\t.txt"
Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
Do While wExec.Status = 0
DoEvents
Loop
Result = ""
Result = wExec.StdOut.ReadAll
Debug.Print Len(Result)
MsgBox Result
Set wExec = Nothing
Set WSH = Nothing
End Sub

回答No.1

Prome_Lin · ベストアンサー

申し訳、ございません。

完全な回答にはなっていないのですが、

Option Explicit
Sub Test()
Dim w, e As Object
Dim c As String
Dim r As Integer
Set w = CreateObject("WScript.Shell")
c = "type D:\t.txt"
Set e = w.Exec("%ComSpec% /c " & c)
r = 0
Do While e.Status = 0
r = r + 1
Cells(r, 1).Value = e.StdOut.ReadLine
Loop
Set e = Nothing
Set w = Nothing
End Sub

と、１行ずつ読み込んでエクセルに書き出すと、かなりの量（4096バイトははるかに超えている）が書き出せたのですが、あと、何行か、残ってしまいました（私が読み込んだテキストデータに何か変な文字コードでも入っていた？）。

質問者のプログラムでしたら、「Do Wile・・・」の前に「Result = ""」とし、「Do While・・・Loop」の間に「Result = Result & wExec.StdOut.ReadLine & vbCrLf」とし、最後に「MsgBox Result」としてみてください。

お礼

ReadLineメソッドを教えていただきありがとうございます。
その場合は、ループをAtEndOfStreamプロパティで回すようです。
(参考）　http://www.atmarkit.co.jp/ait/articles/0907/29/news113.html
ただし、1行が4096を超える場合は対応できないでしょう。（たとえばLFやCRが単独で改行となっている場合など）必要に応じて対応して行こうと考えています。
いずれにしても、一発でいける.ReadAllに頼っていました。手抜き、横着はほどほどに・・・ということですね。
ありがとうございました。