実行時エラー91 インスタンスも生成しているのに

解決

やまだ  2007-12-07 03:15:15  No: 138310  IP: 192.*.*.*

お願いします。

環境は、Excel  2000VBAです。

TableList.Last.addColumn (line)  //クライアントコード

Public Function Last() As TableData  //サーバコード
    ReDim Preserve FTables(1)
    Set FTables(0) = New TableData
    Last = FTables(0)
End Function


Lastメソッドで下記エラー
  
  実行時エラー 91 オブジェクト変数 With文が宣言されていません。
  と出力されます。


どなたかHELP ME!

編集 削除
matsu  2007-12-07 11:56:34  No: 138311  IP: 192.*.*.*

>Last = FTables(0)

Set Last = FTables(0)
では？

編集 削除
やまだ  2007-12-07 13:15:30  No: 138312  IP: 192.*.*.*

natsuさん返信ありがとうございました。
うまくいきました。

【まとめ】
参照型の代入は、Setキーワードをつかうこと！

編集 削除