Excel VBA質問箱 IV

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

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


18269 / 76732 ←次へ | 前へ→

【63906】Re:参照設定で参照するブックにあるクラスの参照
発言  ichinose  - 09/12/30(水) 21:54 -

引用なし
パスワード
   ▼UO3 さん:
こんばんは。


>別ブックに作成したクラスを利用する方法を試行錯誤で試しているのですがいまくいきません。別ブックのクラスのInstanncingを2-PulicNotCreatableにすることでDim myCls as と打ち込んだときに別ブックのクラスが表示されるところまでいったんですが実行時にエラーとなります。
NotCreatable ということなので、他のブックでNewキーワードを使っての
インスタンスの作成はできません。

そもそも、別ブックのクラスは利用できないんでしょうか。

クラスモジュールが存在するブックでインスタンスを作成してオブジェクトを返す
関数が必要ですね!!


>========呼び出し側
>Dim myCls As ILclass
>Sub Test()
 Set myCls = workbooks("別ブック.xls").mk_ILclass
> myCls.ILlove = "Nancy"
> MsgBox myCls.ILlove
>End Sub


一例として、別ブック(クラスのあるブック)のThiswokbookのモジュールに
Function mk_ILclass() As Object
  Set mk_ILclass = New ILClass
End Function


>=======別ブックのクラス(クラスモジュール名はILclass)
>Private a
>
>Public Property Get ILlove()
>ILlove = a
>End Property
>
>Public Property Let ILlove(myName)
>a = myName
>End Property

このようにすると可能です。
試してみてください。

0 hits

【63905】参照設定で参照するブックにあるクラスの参照 UO3 09/12/30(水) 20:32 質問
【63906】Re:参照設定で参照するブックにあるクラス... ichinose 09/12/30(水) 21:54 発言
【63907】Re:参照設定で参照するブックにあるクラス... UO3 09/12/30(水) 22:24 お礼
【63909】Re:参照設定で参照するブックにあるクラス... ichinose 09/12/31(木) 8:42 発言
【63915】Re:参照設定で参照するブックにあるクラス... UO3 09/12/31(木) 14:49 お礼
【65318】Re:参照設定で参照するブックにあるクラス... あーあ 10/5/9(日) 1:11 発言

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