Excel VBA でコンパイルエラー

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
Excel VBAで複数ファイルにまたがるsheetの表をマージさせようとしましたが、クラスモジュールで複数のworkbookを保持して標準モジュールで呼び出そうとした所、コンパイルエラーが発生します。

通常クラスモジュールはこのような使い方をしないのでしょうか？
よろしくお願いします。

発生している問題・エラーメッセージ

エラーメッセージ
コンパイルエラー：　メソッドまたはデータメンバーが見つかりません。

該当のソースコード

Excel VBA
ソースコード

'------------------------------------------------------------------------------------------
Public Sub set_zero()

Debug.Print "start"

    Dim item As path_and_worksheetname             
    Set item = New path_and_worksheetname          
    Call item.Init

    Dim wb1 As Workbook
'                :
    Set wb1 = item.Get_wb01()　'<-ここでコンパイルエラーが発生
'                :


'-----------------------------------------------------------------------------------------
' ここからクラスモジュール
'-----------------------------------------------------------------------------------------
Private file01 As String
'                :

Private wb01 As Workbook
'                :

'-----------------------------------------------------------------------------------------
'ファイルを読み込みworkbookを取得する
'-----------------------------------------------------------------------------------------
Public Sub Init()
    Dim path1 As String
'                :

    Call GetTableInfo

    path1 = ThisWorkbook.path & "\" & file01
'                :

    If Dir(path1) = "" Then
        MsgBox "指定した""" & path1 & """ファイルは存在していません"
        Exit Sub
    End If
'                :
        
    Set wb01 = Workbooks.Open(path1)
'                :
End Sub

'-----------------------------------------------------------------------------------------
' Get_wb01
'-----------------------------------------------------------------------------------------
Public Property Get Get_wb01() As Workbook
    Get_wb01 = wb01
End Property

Comments

[Y.H.]

あーソースの中に記載しているのか。。。
以下は無視して下さい
エラーメッセージは省略せず全て質問に記載して下さい。
どこでそのエラーが発生しているのかという重要な情報が抜け落ちてます

[tatsu99]

Call GetTableInfo
のGetTableInfoはどこで定義されてますか。

[hankyo01]

GetTableInfo関数はInit()のfile01変数を取る為にクラスモジュール内に定義されています。

[hatena19]

file01 に値を設定するコードがありませんが、それがクラスモジュールのすべてのコードですか。
それだけではどうしたって動きませんよ。

[hatena19]

あっ、GetTableInfo で取得しているのか？
それも省略せずに乗せたほうがいいと思います。
原因は、Set がないからだとは思いますが。

[hankyo01]

わかりにくくてすみませんでした。
無事動作いたしました。どうもありがとうございました。

Answer 1

Get_wb01で戻り値に=で代入しているからではないでしょうか？
オブジェクトなのでSetする必要があると思います。

Get_wb01 = wb01
↓
Set Get_wb01 = wb01

Comments

[hankyo01]

回答ありがとうございます。帰宅後ためしてみます。

[hankyo01]

無事動作することが確認できました。
どうもありがとうございました。