kurukuru-papa https://blog.hatena.ne.jp/kurukuru-papa/ kurukuru-papaのブログ https://kurukurupapa.hatenablog.com/ ExcelVBA ' DOSコマンドを実行する ' 2008/12/22 新規作成 Public Sub U_Exec(cmd As String, resultArr As Variant) Dim wsh Dim exec Dim resultStr ' 前準備 Set wsh = CreateObject("WScript.Shell") Set exec = wsh.exec("%ComSpec% /c " & cmd) ' コマンド実行 Do While exec.Status = 0 DoEvents Loop ' 標準出力を取得する resultStr = exec.StdOut.ReadAll … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkurukurupapa.hatenablog.com%2Fentry%2F20081223%2F1230044797" title=" MS-DOSコマンドを実行し、結果を取得する - kurukuru-papaのブログ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-12-23 00:06:37 rich https://kurukurupapa.hatenablog.com/entry/20081223/1230044797 1.0 100%