VBAでクラスを自作しました。
test Module
のtest
メソッド実行時に、GetSheetObjs
メソッドの戻り値をセットする行Set GetSheetObjs = sheets
部分で、sheets
が選択され色が反転した状態になりコンパイルエラーが発生します。
Class1
Option Explicit
Public Sub test()
Dim sheetName_excluded As String
Dim sheetObjs As Object
Set sheetObjs = GetSheetObjs
End Sub
'ファイルからシートオブジェクトを読み込みます。
Private Function GetSheetObjs() As Object
'結果シートを格納する配列変数
Dim sheets() As Object
' Worksheets を For Next でループする
Dim i As Integer
For i = 1 To Worksheets.Count
Dim ws As Worksheet
Set ws = Worksheets(i)
ReDim sheets(i)
Set sheets(i) = ws
Next
'戻り値をセット
Set GetSheetObjs = sheets
End Function
test Module
Option Explicit
Sub test()
Dim cls1 As Class1: Set cls1 = New Class1
Call cls1.test
End Sub
試したこと
・Me.GetSheetObjs
としましたが別のエラーが出て、これではないなとおもいました。
・Dim sheetObjs As Object
の部分をDim sheetObjs() As Object
としましたが、別のコンパイルエラー:配列には割り当てられません。と出ました。