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

解決

やまだ 2007-12-07 12:15:15 No: 138310

お願いします。

環境は、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 20:56:34 No: 138311

>Last = FTables(0)

Set Last = FTables(0)
では？

やまだ 2007-12-07 22:15:30 No: 138312

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

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