ExcelVBA : GetObject関数でのユーザーフォームの参照

質問

ExcelVBAでGetObject関数を使用すると起動中のExcelを参照できると思います。
その際、参照先のセルの値を変更はできるのはわかるのですが
フォームの中身(コントロールなど)を変更したりすることはできるのでしょうか?

現在、ラベルの値を変更しようとしているのですが

Dim ○○ As Object
Set ○○ = GetObject("C:\XXX.xls")
～～～～～～～～～～～～～～～～～～～～
○○.UserForm1.Label1 = 5

ですが最後の行で実行エラーになります。
オブジェクトの階層が違うような気もしてはいるのですが解決方法が見つかりません。
何か良い方法をご存じの方は教えていただけないでしょうか?

回答No.1

rukuku · ベストアンサー

こんばんは

私にとって、初めてのケースですが、これまでにExcel＆VBA多用なことは行ってきていますので、それらの経験と、簡単なテストを行ってみた結果からのアドバイスです。

Application.Run
が使えそうです。

たとえば、Book2.xlsのUserForm1にLabel1ある場合、
Book2.xlsの標準モジュールに
Sub ShowForm2()
UserForm1.Label1 = 5
UserForm1.Show
End Sub
を設置しておけば、他のブックから、
Sub show1()
Application.Run "Book2.xls!ShowForm2"
End Sub
で呼び出すことが出来ます。
ただし、「Book2.xls」が開いていることが前提です。

「Call」では同じブックでも他のモジュールの「Private Sub（Private Function）」を呼び出すことは出来ません。「Application.Run」を使うと、他のモジュールの「Private Sub（Private Function）」を呼び出すことが出来ます。