VBAからcommand.comまたはcmd.exeを実行するとMSGコマンドに問題が発生する

Question

VBA内でコマンドプロンプトを開いたときにmsgが機能しなくなることがありますが、cmd.exeまたは "コマンドプロンプト"窓から。次のように

私のVBAコードは次のとおりです。

Sub test() 
Dim str_to_pass As String 

str_to_pass = "msg" 

Call Shell("cmd.exe /s /k " & str_to_pass, vbNormalFocus) 

End Sub 

コマンドプロンプトの内部からの私の結果：「『MSG』が、内部または外部コマンドとして認識されていません...」

しかし、もしIコマンドプロンプトを開くか、ウィンドウからcmd.exeを最初に入力し、 "msg"とタイプします。msgの使い方の構文が表示されます。

このように、vbaからのコマンドプロンプトのこの使い勝手にアクセスするにはどうすればよいのですか。また、cmd.exeの起動方法によってコマンドが異なるのはなぜですか？

Answer 1

問題は、64ビットWindowsが32ビットアプリケーションとの間で呼び出しを行う方法にあります。 Windowsには、SysNativeというフォルダという仮想フォルダがあり、32ビットアプリケーションから64ビットの実行可能ファイルにアクセスするときは、System32の代わりに使用する必要があります。ここでは偉大な説明があります：http://www.samlogic.net/articles/sysnative-folder-64-bit-windows.htm

コードをする必要があります：

str_to_pass = "c:\windows\sysnative\msg" 
Call Shell("cmd.exe /s /k " & str_to_pass, vbNormalFocus) 

そして、ここで関連のMSDNのページがあります：https://msdn.microsoft.com/en-us/library/aa384187%28v=vs.85%29.aspx