質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

91.02%

  • VBA

    1420questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

VBAのexec()について

受付中

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 253

MikeDavis

score 12

外部batファイルをexec()で実行しました。
ですがその際、StdOutには4096バイトしか出力出来ないそうで、結果が途中までしか出力出来ません。
batファイルを複数に分ければ全て出力可能だと思うのですが、なんとか一つのbatファイルで全ての結果を出力させることはできないでしょうか?

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

0

StdOutでの取得はReadAllで一気に取得してますか?

外部batファイルの出力の一行が4096を超えないテキストデータであれば
StdOut.ReadLine
で一行ずつ取得してから連結で取得できないでしょうか?

実際に動くかどうかは全く確認してませんがイメージ的にこんな感じとか。

Set e = w.Exec(外部batファイル名)

Result = ""
Do Until e.AtEndOfStream
  Result = Result & e.StdOut.ReadLine & vbCrLf
Loop

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/09/14 17:38

    1行ずつ読んでいます。
    どうやらbatファイルにたくさんのコマンドがあるので、stdoutに格納される結果自体が多いのだと思います。

    キャンセル

  • 2017/09/14 19:07

    そうなると一度ファイル出力するしかなさそうですね。
    batファイル中のコマンド実行を全てリダイレクトでファイル出力してそれをVBAからファイル読み込みで取得するとか。

    キャンセル

0

OldRiverさんがおっしゃっていたコマンド実行結果をファイル出力してそれを読む関数 "GetBatResult" を作ってみましたのでご参考までに参照頂けたらと思います。
※コマンド実行結果をファイル出力するので、bat実行ウィンドウを見せないためにexecコマンドではなくrunコマンドを使用しています。

Option Explicit

' バッチ呼び出しプロシージャ
Public Sub CallBat()

    ' bat実行結果をイミディエイトウィンドウに出力
    Debug.Print GetBatResult(InputBox("batファイル格納パスを記入して下さい", "batファイル選択"))

End Sub

' batファイルの実行結果を取得
Public Function GetBatResult(ByRef pBatFilePath As String) As String

    ' 変数宣言
    Dim fso As FileSystemObject
    Dim sh As IWshRuntimeLibrary.WshShell
    Dim txtStream As TextStream
    Dim tmpFileName As String

    ' オブジェクト初期化
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set sh = CreateObject("WScript.Shell")

    ' batファイルパスが入力されなかった場合は処理終了
    If pBatFilePath = "" Then
        MsgBox "batファイルパスが入力されませんでした", vbCritical + vbOKOnly, "エラー"
        Exit Function
    End If

    ' batファイルの存在確認(存在しない場合は処理終了)
    If Not fso.FileExists(pBatFilePath) Then
        MsgBox "batファイルが存在しません", vbCritical + vbOKOnly, "エラー"
        Exit Function
    End If

    ' 一時ファイル名を取得
    With fso
        tmpFileName = .BuildPath(.GetSpecialFolder(2), .GetTempName)
    End With

    ' エラー制御開始
    On Error GoTo 0

    ' コマンドを実行し結果を一時ファイルに出力
    sh.Run pBatFilePath & " > " & tmpFileName, 1, True

    ' コマンド実行を失敗した場合は処理終了
    If Err.Number <> 0 Then
        MsgBox "batファイルの実行に失敗しました", vbCritical + vbOKOnly, "エラー"
        Exit Function
    End If

    ' エラー制御終了
    On Error GoTo 0

    ' コマンド実行結果ファイルを開く
    Set txtStream = fso.OpenTextFile(tmpFileName, ForReading, False, TristateUseDefault)

    ' コマンド実行結果を取得
    With txtStream
        GetBatResult = .ReadAll
        .Close
    End With

    ' 一時ファイルを削除(失敗した場合は無視)
    On Error Resume Next
    fso.DeleteFile tmpFileName
    On Error GoTo 0

    ' オブジェクト開放
    Set fso = Nothing
    Set sh = Nothing
    Set txtStream = Nothing

End Function

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 91.02%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

  • 解決済

    build.gradle 記述方法

    netbeansとlibgdxを使ってゲームを作ろうかなと思って作り始めました。初心者です(一か月くらい)。 タイトルの通りbuild.gradleの記述方法について悩んでいます。

  • 解決済

    CakePHP3からbatファイルを実行

    CakePHP3からbatファイルを実行したいのですが、可能でしょうか? 「実行」ボタンを押したタイミングで、モデルで各種ファイルを作成後、FTPで作成したファイルを自動アッ

  • 解決済

    Javaのコンパイル→実行を自動化したい

    現在Javaの勉強を始めたばかりのものです。 Javaのコンパイル、実行の仕方をHP等で調べ、コマンドプロンプトから現在コンパイル、実行を行っております。 ここで、当面の間は、

  • 解決済

    BAT内で作成したファイルを、作成したBAT内で削除したい

    前提・実現したいこと BAT内で作成したファイルを、作成したBAT内で削除したい 該当のソースコード cd /d %~dp0 for %%i in (*.csv) do

  • 解決済

    PHP:execの出力を/dev/nullで消したい

    前提・実現したいこと 下記のようにして別ファイルを実行することができたのですが、 バックグラウンド処理をしたいので/dev/nullで出力を消したいと思います。 いくつか

  • 受付中

    python3.xでwindowsフォルダ以下のファイルを操作する方法

    前提・実現したいこと python3.6でwindowsフォルダ以下のファイルやフォルダなどを操作しようとすると、どうやら管理者権限が必要なようでアクセスが拒否されてしまいます。

  • 解決済

    JavaScriptから他exeを引数付きで実行させたい

    JavaScriptから他exeを引数付きで実行させようとしています。 ActiveXObjectを使えば可能ですが、サーバー上で動作させるためActiveXObjectが

  • 解決済

    bat renファイル内ファイル名の特定文字を削除したい

    いつもお世話になっております。 ファイル内ファイル名の特定文字を削除したいしたいのですが、思うようにいかず困っております。 ファイル内に aaaaa_1111111.jpg

同じタグがついた質問を見る

  • VBA

    1420questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。