Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33561 / 76734 ←次へ | 前へ→

【48389】Re:アドインファイルの代替方法
発言  uchan  - 07/4/15(日) 23:30 -

引用なし
パスワード
   ▼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のところで、メッセージボックスを表示します。

因みに、もう一つのクラスのインスタンスの作成方法でも試しましたが同じです。

以上です。
いかがでしょうか?
4 hits

【48321】アドインファイルの代替方法 ucahn 07/4/12(木) 19:22 質問
【48323】Re:アドインファイルの代替方法 kobasan 07/4/12(木) 21:16 発言
【48327】Re:アドインファイルの代替方法 uchan 07/4/12(木) 23:24 質問
【48328】Re:アドインファイルの代替方法 kobasan 07/4/12(木) 23:40 発言
【48356】Re:アドインファイルの代替方法 uchan 07/4/13(金) 22:15 発言
【48330】Re:アドインファイルの代替方法 ichinose 07/4/13(金) 7:39 発言
【48357】Re:アドインファイルの代替方法 uchan 07/4/13(金) 22:58 発言
【48365】Re:アドインファイルの代替方法 ucahn 07/4/14(土) 17:44 質問
【48384】Re:アドインファイルの代替方法 ichinose 07/4/15(日) 18:44 発言
【48389】Re:アドインファイルの代替方法 uchan 07/4/15(日) 23:30 発言
【48392】Re:アドインファイルの代替方法 ichinose 07/4/16(月) 7:24 発言
【48401】Re:アドインファイルの代替方法 ucahn 07/4/16(月) 13:03 発言

33561 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free