Excelのセルの内容をコマンドプロンプトで実行

質問

Excel VBA初心者です。
Excelのセルに記入されている文字列をコマンドプロンプトで実行する方法を教えて下さい。

具体的には、

A1 → d:
A2 → cd hogehoge
A3 → dir

とセルにそれぞれ記入されていたとして、フォームから作成したボタンを押下すると
A1～A3が順番にコマンドプロンプトで実行(貼り付け)されるマクロの作り方が知りたいです。

ロジックは以下のようにしたいと考えています。

セルA1に値 →ない→ 「値がありません」というエラーのポップアップか何かを表示。
↓ある
セルA1に記入された文字列をコマンドプロンプトで実行
↓
セルA2に値 →ない→exit
↓ある
セルA2に記入された文字列をコマンドプロンプトで実行
↓
セルA3に値 →ない→exit
↓ある
以下ループ

わかりにくいかもしれませんが、よろしくお願い致します。

回答No.2

mitarashi · ベストアンサー

目的が分からないのですが、思いつきで作成してみました。
セルの情報からバッチファイルを生成して実行するコードです。
XPSP3、XL2000で試しています。ご参考まで。
Sub test()
Dim targetRange As Range
Dim FSO As Object
Dim i As Long
Dim myTextFile As Object
Dim batFilePath As String

Set FSO = CreateObject("Scripting.FileSystemObject")
’バッチファイルをテンポラリフォルダーに作成して実行します
batFilePath = FSO.GetSpecialFolder(2) & "\temp.bat"
Set myTextFile = FSO.CreateTextFile(batFilePath)
With ActiveSheet
Set targetRange = .Range(.Range("A1"), .Range("A" & .Rows.Count).End(xlUp))
End With
With myTextFile
For i = 1 To targetRange.Cells.Count
If i = targetRange.Cells.Count Then
'コマンドプロンプトを開いたままにする
.writeline "cmd /k " & targetRange.Cells(i)
Else
.writeline targetRange.Cells(i)
End If
Next i
.Close
End With
Set FSO = Nothing
CreateObject("WScript.Shell").Run "CMD.EXE /C " & batFilePath, , True
End Sub

おまけで、DOSコマンドの実行結果をVBAで取得したい時は、下記が参考になると思います。
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGetDosResult.html

お礼

ありがとうございます！
出来ました。

回答No.1

imogasi

初心者がやるような課題ではない。したければ自分で勉強のこと。
いまさら何でこういうことが必要なのか疑問？質問者は２０年前のコンピュター従事者のの残党ですか。
したいことを方法論を指定せずに、別に質問したら（ＶＢＡ、VBscriptなどで出来る範囲ということで）
http://okwave.jp/qa/q4276876.html　の＃２のＷｅｎｄｙ02さんより
＞それをバッチプログラムでっていうのは、私には良く分からないです。もう、WScript でも古いというのに、なお古い方法を選ぶのは、ちょっともう世界が違うように思います。
ーー
Ｇｏｏｇｌｅで「vba dos コマンド 実行」で照会すると、沢山記事が出る。ただし、ＤＯＳコマンドに習熟していないと読んでもわかりにくいと思うが。
http://officetanaka.net/excel/vba/tips/tips27.htm　ほか多数
上記を元に　ｃｄ　を実行して、dirを実行する例をやってみた。上記の解説のスイッチの意味など十分わかってないが（生煮えですまないが）参考までに挙げておく。
Ｉ１：Ｉ２に
dir
C:\Documents and Settings\ＸＸＸＸ\My Documents　　（最後に￥は不要のようだ）
が入っている。
ーーー
標準モジュールに
Sub Sample2()
Dim WSH, wExec, sCmd As String, Result As String, tmp, i As Long
Set WSH = CreateObject("WScript.Shell")
sCmd = "cd " & Cells(2, "I")
'--cd XXX
Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
Do While wExec.Status = 0
DoEvents
Loop
'--Dir
sCmd = "dir"
Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
Do While wExec.Status = 0
DoEvents
Loop
Result = wExec.StdOut.ReadAll
tmp = Split(Result, vbCrLf)
For i = 0 To UBound(tmp)
Cells(i + 1, 1) = tmp(i)
Next i
Set wExec = Nothing
Set WSH = Nothing
End Sub
ーー
ただし
Ｄｏｓ窓を閉じるとセルにファイル名などが出てきた。
ＳｔｄＯｕｔの文字数制限のためか、途中までしか出ない。