VBAのモジュール間でのオブジェクトの引き渡しについて

Question

よろしくお願いします。
VBAでモジュール間でのオブジェクトの引き渡しですが、

Public Obj As Object
Sub ボタン1_Click()

    Set sh = CreateObject("WScript.Shell")
    cmd = "nslookup"
    Set ex = sh.Exec("%ComSpec% /c " & cmd)



　　 Set Obj = ex

End Sub

一度処理を抜け以下のコード処理を行うと実行時エラーになります。
これはどうしてなのでしょうか？

命令の仕様なのでしょうか？それとも回避できるのでしょうか？
VBAの知識が乏しくわかりません。
ご教授していただければ幸いです。よろしくお願いいたします。

ちなみに、
Result = ex1.StdOut.ReadLine
はエラーになりません。

Sub ボタン2_Click()

Set ex1 = Obj

 ex1.StdIn.WriteLine "www.google.co.jp"　　←実行時エラーとなる

End Sub

Comments

[nonoshu]

実行時エラーの内容を質問文に追記することと、
質問者さんの環境をもう少し詳しく書くことは可能ですか？
ExcelVBA（←EXCELではなくWORDやACCESS?）で開示されたコードを実行しましたが
私の環境では実行時エラーは発生しませんでした。

[x86]

ありがとうございます。
excelはoffice 2019でosはwin10です。
あとは何を書けばよろしいでしょうか？
やはり、実行時エラーとなります。

[x86]

実行するとエラーとして
実行エラー'2147024664’
WiteLineメソッドは失敗しました’ITextStreamオブジェクト
と表示されます。

[jinoji]

Option Explicit はつけていますか？
ボタン1_Click()と ボタン2_Click()は同じモジュールに書いていますか。

[x86]

ありがとうございます。
別のボタンの押下時にしたいので、違うモジュールです。
WriteLineはできないのでしょうか？

[jinoji]

Public Obj As Object の1行が標準モジュール上にあるかかどうかを気にしています。

[x86]

ありがとうございます。
以下の様に、ボタン１＿Clickの外にパブリックとしてあります。
これは、命令の仕様上できないのでしょうか？
しかし、ReadLineが出来るのが不思議です。
Public Obj As Object
Sub ボタン1_Click()

Answer 1

『ボタン1』をクリックして出てきたコマンドラインの画面を消してから『ボタン2』をクリックしてるだけじゃないでしょうか？

受け付けるプログラムが終了してしまえば、それに対して標準入力を送ろうとしても当然エラーになります。
一方で、既に書き出されていてまだ読み取っていない標準出力は読み取る側が閉じるまで残りますから、ReadLineできます。

Comments

[x86]

考えてみればそうですね。
ありがとうございました。
また、お願いします。