|
▼ichinose さん:
こんばんは、なんどもすみません。
コーディング内容を記述しましたのでご確認ください。
>上記のエラーが再現する手順書を記述してください。
>これは、Excelバージョンの記述から、
>コードの表示などを箇条書きで記述してください。
>
Version Excel2003
プログラムのフォルダー D:\TEST
クラス処理EXCELファイル:TEST_CLS.xla
クラスモジュール「Cllas1」に
'==============================
Private mes As String
'==============================
Sub set_mes(dspmes As String)
mes = dspmes
End Sub
'==============================
Sub disp_mes()
MsgBox mes
End Sub
標準モジュール「Module1」
Public Function mk_cls()
Set mk_cls = New Class1
End Function
--------------------------------------
呼び出し側Excelファイル:TEST_MAIN.xls
のThisWorkbookに、以下を記述
Sub test()
Set clsobj = Application.Run("D:\TEST\TEST_CLS.xla!mk_cls")
clsobj.set_mes "Classtest"
clsobj.disp_mes
End Sub
し、testをステップ実行すると、TEST_CLS.xlaは呼び出されるのですが、
mk_clsのところで、メッセージボックスを表示します。
因みに、もう一つのクラスのインスタンスの作成方法でも試しましたが同じです。
以上です。
いかがでしょうか?
|
|