|
▼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
このようにすると可能です。
試してみてください。
|
|