【VBA】エクセルでbatファイル実行 #VBA

command

./test.bat aaa

test.bat(%1=aaa)

powershell -NoLogo -ExecutionPolicy RemoteSigned -Command .\test.ps1 %1

test.ps1($Args[0]=%1=aaa)

#中間テキストファイル指定
[System.String]$textLog = './test.txt'
#検索文字列指定
[System.String]$findstring = 'abc'

do {
    $loopflag = $False    #ループ初期化(無効)
    #$Args[0] = 引数[1]
    #command $Args[0] $Args[1]
    $Output = $Args[0]  #test command

    #中間テキストファイル出力
    #command             | tee-object -file test.txt
    Write-Output $Output | tee-object -file test.txt

    #文字列があるか検索
    $textChk = @(Get-Content $textLog -TotalCount 2)[-1] | Select-String -SimpleMatch $findstring -quiet

    #結果がTrueであれば再度実行
    if ($textChk -eq $True) {
        $loopflag = $True    #ループ有効
    }

    #中間テキストファイル削除
    #Remove-Item './test.txt'
} while ($loopflag)

バッチだけに作り直し

test.bat

@echo off

@rem テキストファイル名指定
set txtFile=.\batlog.txt
set findString=aiue

@rem cygwinのteeコマンドを利用
@rem [command] [引数(%1)] 2>&1 | C:\cygwin64\bin\tee.exe %txtFile%
echo %1 2>&1 | C:\cygwin64\bin\tee.exe %txtFile%

:loop
    findstr %findString% %txtFile% > NUL
    if "%ERRORLEVEL%"=="0" (
        @rem 文字列があればループ終了
        echo "検索あり"
        goto :end
    ) else if "%ERRORLEVEL%"=="1" (
        @rem 文字列がなければ再実行
        echo "検索なし"
        goto :loop
    )
:end

@rem テキストファイル削除
rm -f txtFile

VBAでバッチ実行

標準モジュール

Sub RunBatWshShell()
    Dim obj As WshShell
    Dim fPath
    Dim sPath
    Dim sParam1
    Dim sParam2
    Dim tName
    Dim tPathName
    Dim sCheck
    Dim fLoop
    Dim buf

    Set obj = New WshShell

    'loop確認文字列
    sCheck = "abc"

    '引数取得
    sParam1 = Range("B3")
    sParam2 = Range("C3")

    'パス取得
    fPath = ThisWorkbook.Path
    sPath = fPath & "\" & "test.bat" & " " & fPath & " " & sParam1 & " " & sParam2
    s2Path = fPath & "\" & "test2.bat"

    '結果テキストファイル名
    tName = "test.txt"
    tPathName = fPath & "\" & tName

    'Loop flag初期化(有効)
    fLoop = True
    Do While fLoop
        'Loop flag初期化(無効)
        fLoop = False

        'bat実行
        Call obj.Run(sPath, WaitOnReturn:=True)

        With CreateObject("ADODB.Stream")
            .Charset = "UTF-16"
            .Open
            .LoadFromFile tPathName
            buf = .ReadText
            .Close
        End With
        If InStr(buf, sCheck) <> 0 Then
            'ループを有効
            fLoop = True
        End If

        Call obj.Run(s2Path, WaitOnReturn:=True)
    Loop
End Sub

標準モジュール(simple)

Sub RunBatWshShell()
    Dim obj As WshShell
    Set obj = New WshShell

    'batファイル名
    batName = Range("B1")

    '引数取得
    sParam1 = Range("B3")
    sParam2 = Range("C3")

    'パス取得
    fPath = ThisWorkbook.Path
    sPath = fPath & "\" & batName & " " & fPath & " " & sParam1 & " " & sParam2

    'bat実行
    Call obj.Run(sPath, WaitOnReturn:=True)
End Sub

testVB

@echo off

@rem テキストファイル名指定
set txtFile=%1\batlog.txt
set findString=aiue

@rem cygwinのteeコマンドを利用
@rem [command] [引数(%1)] 2>&1 | C:\cygwin64\bin\tee.exe %txtFile%
echo %2 %3 2>&1 | C:\cygwin64\bin\tee.exe %txtFile%

:loop
    findstr %findString% %txtFile% > NUL
    if "%ERRORLEVEL%"=="0" (
        @rem 文字列があればループ終了
        echo "検索あり"
        goto :end
    ) else if "%ERRORLEVEL%"=="1" (
        @rem 文字列がなければ再実行
        echo "検索なし"
        @rem goto :loop
    )
:end

@rem コマンドが終わっても画面を閉じない
cmd /k

@rem テキストファイル削除
rm -f txtFile

参考
Powershellを楽に実行してもらうには - Qiita
PowerShellのGet-Contentでハマったところ - Qiita
Windowsバッチファイル（.bat）、処理が終わった後にウィンドウを閉じない｜マコトのおもちゃ箱　～ぼへぼへ自営業者の技術メモ～
PowerShellでファイルから文字検索チェック - 社内SEの徒然なる日記
 Powershellで引数を受け取る | マイクロソフ党ブログ
 PowerShellスクリプティングの第一歩（後編） (2/5)：Windows PowerShellコマンド＆スクリプティング入門 - ＠IT
【PowerShell】繰り返し文(While, For)について | SEブログ
 入力を２箇所に出力する(tee-object) - PowerShell Memo

参考
PowerShell/テキストファイルを１行ずつ読み込むサンプルコード - Windowsと暮らす
 テキストファイルの読み込み、書き込み
 VBAで他のアプリケーションを同期起動する（WshShell）｜ Excel作業をVBAで効率化
 VBAでバッチファイル（bat）を実行する｜ Excel作業をVBAで効率化
 バッチファイル（.bat）からパワーシェルファイル（.ps1）を実行する方法[PowerShell] : バヤシタ

Windowsで標準出力とファイルの両方へ出力している風に見せる - しもむブログ
 コマンドプロンプト - Windows のコマンドプロンプトで、画面出力した上で、ログにも出力したい - スタック・オーバーフロー
 コマンドの実行結果をファイルに出力する - Windows - Project Group
[Windows]バッチファイルで任意の文字列を入力させる | ごった煮 - tips about programming and building a server
【ExcelVBA入門】カレントディレクトリの取得・変更方法を徹底解説！ | 侍エンジニア塾ブログ（Samurai Blog） - プログラミング入門者向けサイト
 【VBA入門】OpenメソッドでテキストファイルやCSVの読み込み | 侍エンジニア塾ブログ（Samurai Blog） - プログラミング入門者向けサイト

標準出力 (stdout) と標準エラー (stderr) への出力をファイルに保存する | まくまくWindowsノート
 コマンドプロンプトからのエラーメッセージをリダイレクトする: 標準エラー出力と標準出力
 バッチファイルで変数を使う
 Windowsのコマンドプロンプトでファイルを1行ずつ読み込む - Qiita
コマンドプロンプト findstr - [文字列や正規表現を使って文字列を検索する]

batファイルでコマンドの実行結果を出力しないようにする方法 - Qiita
findstrコマンドで検索した結果を条件分岐に用いる - とりあえず半歩
 teeコマンドの使い方 - Qiita
バッチファイルでループ処理する