VBA ByRefエラークラスオブジェクトをサブに渡す

Question

オブジェクトを新しいサブに渡そうとしていますが、ByRefの不一致エラーが発生し続けています。

私は私の物のように宣言した：

Dim targetWorkbook 
Set targetWorkbook = New CWorkbooks 

私が使用して自分のサブを呼んでいる：

checkbook targetWorkbook 

そして、私のサブのように設定されている：

Sub checkbook(targetWorkbook As CWorkbooks) 

'Checking if passthrough is working 

End Sub 

どれでも助けていただきありがとうございます、私のタイプは整列しているので、私はなぜこれが発生しているのか分かりません。

ありがとうございます！

Answer 1

コンパイラで問題を再現できました。以下はコンパイラをパスして実行されます。あなたはTargetWorkbookをVariantとして宣言してから、それをCWorkbookに設定しました。これは動作しますが、サブに渡されたときは動作しません。

Sub main() 
    Dim TargetWorkbook As CWorkbooks 
    Set TargetWorkbook = New CWorkbooks 
    checkbook TargetWorkbook 
End Sub 
Sub checkbook(ByRef TargetWorkbook As CWorkbooks) 

'Checking if passthrough is working 

End Sub