Office TANAKA - Excel VBA Tips[MS-DOSコマンドの標準出力を取得する]

またもや「Excel VBAと関係ねぇじゃねーか！」と言われそうですが、今回はMS-DOSコマンドの標準出力を変数に取得する方法を解説します。これはもう、Excelとは関係ないVB系のネタなんですね。ただ実行環境がExcelってだけで(^^; ま、いーや書いちゃえ。MS-DOSって何のことだかわからない人は、自分で調べてください(^^; なお、ここではWindows XP Home Editionを例に解説します。 MS-DOSのコマンドには今でも便利に使えるものが多いですし、何よりネットワークを管理されている方は必須コマンドです。VBやVBAからMS-DOSコマンドを実行するときには、問題が2つあります。1つめはShell関数で起動できないことです。MS-DOSコマンドはいわゆるDOS窓で起動する仕組みになっていますので、Shell関数では起動できません。2つめの問題は、実行結果もDOS

[kiyo_hiko]

Set wsh = CreateObject("WScript.Shell")→wsh.Exec("%ComSpec% /c ...")→StdOut.ReadAllで実行結果をぶんどってStringにできるという。この技よさげ

[stealthinu]

wsh作ってそこで実行