エクセルでDOSコマンドを実行

質問

お世話になります。

例えばエクセル(office2003)のA列にDOSコマンドの入力内容(copy A.csv c:\copyA.csv)を記述しているものがあるとして、エクセル上でA列のコマンドを実行し、エクセル上(例えばｂ列)にその結果を表示させることって可能でしょうか。

どなたかご教授頂けると幸いです。
宜しくお願い致します。

回答No.1

nda23

とりあえずこんな感じのVBAを作ってみました。
Declare Sub Sleep Lib "KERNEL32" (ByVal ミリ秒 As Long)
Sub DOS実行(ByVal 行 As Long)
Dim シェル
Dim 実行
Dim 命令 As String

Set シェル = CreateObject("WScript.Shell")
命令 = "CMD.exe /C " & Cells(行, 1)
Set 実行 = シェル.Exec(命令)
Do Until 実行.Status = 1
　　　　Sleep 100 '★100ミリ秒間のスリープ
Loop
Cells(行, 2) = 実行.ExitCode
Cells(行, 3) = 出力取得(実行.StdOut)
Cells(行, 4) = 出力取得(実行.StdErr)
End Sub
Function 出力取得(出力) As String
Dim 結果 As String
Do Until 出力.AtEndOfStream
　　　　If 結果 <> "" Then 結果 = 結果 & vbNewLine
　　　　結果 = 結果 & 出力.ReadLine
Loop
出力取得 = 結果
End Function

使用方法と解説
１行目のコマンドを実行するには「DOS実行 1」と呼び出します。
「DOS実行」は指定された行のA列にある文字列を取り出して、
コマンドプロンプトのコマンドとして実行させます。
処理が終了するまで待ちます。(100ミリ秒に1回ずつ調べる）
終了後、プログラムの終了コードをB列、標準出力の内容をC列、
標準エラーの内容をD列に表示します。

Sleepを入れないと、Excel自身がCPUのタイムスライスを消費
して、コマンドや、他のプログラムの実行に悪影響を及ぼします。