VBA

VBA から EXE の標準出力を読む

VBA

StdOut.ReadLine を使う。 Function test() Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("test.exe") r = objExec.StdOut.ReadLine MsgBox (r) End Function 参考: Windows管理者のためのWindows Script Host入門:第5回 Ws…

VBA で管理者権限に昇格する必要のある外部アプリを実行する

ShellExecuteEx で "runas" する。こんな感じになる。 Dim ei As SHELLEXECUTEINFO ei.cbSize = LenB(ei) ei.fMask = SEE_MASK_NOCLOSEPROCESS ' プロセスを終了させない ei.hwnd = GetActiveWindow() ' シートのハンドル ei.lpVerb = "runas" ei.lpFile = A…