外部batファイルをexec()で実行しました。
ですがその際、StdOutには4096バイトしか出力出来ないそうで、結果が途中までしか出力出来ません。
batファイルを複数に分ければ全て出力可能だと思うのですが、なんとか一つのbatファイルで全ての結果を出力させることはできないでしょうか?
気になる質問をクリップする
クリップした質問は、後からいつでもMYページで確認できます。
またクリップした質問に回答があった際、通知やメールを受け取ることができます。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。

回答2件
0
OldRiverさんがおっしゃっていたコマンド実行結果をファイル出力してそれを読む関数 "GetBatResult" を作ってみましたのでご参考までに参照頂けたらと思います。
※コマンド実行結果をファイル出力するので、bat実行ウィンドウを見せないためにexecコマンドではなくrunコマンドを使用しています。
VBA
1Option Explicit 2 3' バッチ呼び出しプロシージャ 4Public Sub CallBat() 5 6 ' bat実行結果をイミディエイトウィンドウに出力 7 Debug.Print GetBatResult(InputBox("batファイル格納パスを記入して下さい", "batファイル選択")) 8 9End Sub 10 11' batファイルの実行結果を取得 12Public Function GetBatResult(ByRef pBatFilePath As String) As String 13 14 ' 変数宣言 15 Dim fso As FileSystemObject 16 Dim sh As IWshRuntimeLibrary.WshShell 17 Dim txtStream As TextStream 18 Dim tmpFileName As String 19 20 ' オブジェクト初期化 21 Set fso = CreateObject("Scripting.FileSystemObject") 22 Set sh = CreateObject("WScript.Shell") 23 24 ' batファイルパスが入力されなかった場合は処理終了 25 If pBatFilePath = "" Then 26 MsgBox "batファイルパスが入力されませんでした", vbCritical + vbOKOnly, "エラー" 27 Exit Function 28 End If 29 30 ' batファイルの存在確認(存在しない場合は処理終了) 31 If Not fso.FileExists(pBatFilePath) Then 32 MsgBox "batファイルが存在しません", vbCritical + vbOKOnly, "エラー" 33 Exit Function 34 End If 35 36 ' 一時ファイル名を取得 37 With fso 38 tmpFileName = .BuildPath(.GetSpecialFolder(2), .GetTempName) 39 End With 40 41 ' エラー制御開始 42 On Error GoTo 0 43 44 ' コマンドを実行し結果を一時ファイルに出力 45 sh.Run pBatFilePath & " > " & tmpFileName, 1, True 46 47 ' コマンド実行を失敗した場合は処理終了 48 If Err.Number <> 0 Then 49 MsgBox "batファイルの実行に失敗しました", vbCritical + vbOKOnly, "エラー" 50 Exit Function 51 End If 52 53 ' エラー制御終了 54 On Error GoTo 0 55 56 ' コマンド実行結果ファイルを開く 57 Set txtStream = fso.OpenTextFile(tmpFileName, ForReading, False, TristateUseDefault) 58 59 ' コマンド実行結果を取得 60 With txtStream 61 GetBatResult = .ReadAll 62 .Close 63 End With 64 65 ' 一時ファイルを削除(失敗した場合は無視) 66 On Error Resume Next 67 fso.DeleteFile tmpFileName 68 On Error GoTo 0 69 70 ' オブジェクト開放 71 Set fso = Nothing 72 Set sh = Nothing 73 Set txtStream = Nothing 74 75End Function
投稿2017/09/17 12:26
総合スコア316
0
StdOutでの取得はReadAllで一気に取得してますか?
外部batファイルの出力の一行が4096を超えないテキストデータであれば
StdOut.ReadLine
で一行ずつ取得してから連結で取得できないでしょうか?
実際に動くかどうかは全く確認してませんがイメージ的にこんな感じとか。
vba
1Set e = w.Exec(外部batファイル名) 2 3Result = "" 4Do Until e.AtEndOfStream 5 Result = Result & e.StdOut.ReadLine & vbCrLf 6Loop
投稿2017/09/14 08:06
総合スコア59
あなたの回答
tips
太字
斜体
打ち消し線
見出し
引用テキストの挿入
コードの挿入
リンクの挿入
リストの挿入
番号リストの挿入
表の挿入
水平線の挿入
プレビュー
質問の解決につながる回答をしましょう。 サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。 また、読む側のことを考えた、分かりやすい文章を心がけましょう。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。