エクセルVBAからDOSコマンドを実行するには？ 削除
| Message#1 2015年2月12日(木)09時06分 From: くわおとろ |
| エクセルVBAからDOSコマンドを実行するにはどうしたらいいでしょうか？ エクセルVBAからDOSコマンド(tree)を実行してエクセルのセルにDOSコマンドで取得したツリーの一覧を取り込もうと考えています。 色々なサイトで同様の処理について書かれている処理を試してみたのですが、プロンプト画面は立ち上がったもののその後の処理がうまくいきません。 このプロンプト画面を閉じると一応実行結果がセルに取り込まれるのですが、このままでは途中の進捗状況が分かりません。 こちらをうまく回避できる方法がありましたら、教えてください。 一応以下が色々なサイトのやつから自分なりに構築したVBAコードとなります。 よろしくお願いいたします。 Sub sample() Dim tmp, i As Long Dim Pr_tree, Pr_Exec, Dos_cmd, Result As String Set Pr_tree = CreateObject("WScript.Shell") Dos_cmd = "tree c:\" Set Pr_Exec = Pr_tree.Exec("%ComSpec% /c " & Dos_cmd) Do While Pr_Exec.Status = 0 DoEvents Loop Result = Pr_Exec.StdOut.ReadAll tmp = Split(Result, vbCrLf) For i = 0 To UBound(tmp) Cells(i + 1, 1) = tmp(i) Next Set Pr_Exec = Nothing Set Pr_tree = Nothing MsgBox "ディレクトリ情報を取得しました。" End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
