複数あるクラスの Set ○○ = New □□ ひとつにまとめたい (ID:102816)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Kozさん、ありがとうございます。実現できました！ > Dim clsObject1 As Object > Dim clsObject2 As Object > Dim clsObject3 As Object > 'DLLはActiveX.DLL です。 > Set clsObject1 = New Class1 'A010.DLL のクラスモジュール > Set clsObject2 = New Class2 'A020.DLL のクラスモジュール > Set clsObject3 = New Class3 'A030.DLL のクラスモジュール の部分を Dim strClass AS String If p = 0 Then strClass = "A010.Class1" ElseIf p < 0 Then strClass = "A020.Class2" ElseIf p > 0 Then strClass = "A030.Class3" End if Set CreateSample = CreateObject(strClass) とすることで対応できました。 ありがとうございます。 魔界の仮面弁士さんも書込みありがとうございました。