どのデータ型で宣言すればいいのでしょうか？

VBAです。

http://oshiete.goo.ne.jp/qa/1318017.html
を参考に、現在パソコンに入ってるプリンタ名の一覧を取得したいのですが
*****************************************
Sub アクティブプリンターを取得する()

Set Win = CreateObject("Shell.Application")
For Each Obj_Item In Win.Namespace(4).Items
Debug.Print Obj_Item.Name
Next

End Sub
*****************************************
を実行すると、
「Win」と「Obj_Item」が
「変数が定義されていません。」というコンパイルエラーになってします。

なので、
*****************************************
Dim Win, Obj_Item As データ型
*****************************************
で、変数を宣言すればいいと思うのですが、どのデータ型で宣言すればいいのでしょうか？

ご回答よろしくお願いします。

No.1 ベストアンサー 回答者： tsukasa-12r 回答日時： 2012/05/19 04:28

As Object

でいいと思いますが、アーリーバインディングでするなら、
「Microsoft Shell Controls And Automation」を参照設定で設定して
Dim s As New Shell
Dim i As Shell32.FolderItem
For Each i In s.NameSpace(4).Items
Debug.Print i.Name
Next
のようにしてやればよいでしょう。

この回答へのお礼

Dim Win, Obj_Item As Objectで、
変数を宣言したら
「Microsoft Shell Controls And Automation」を参照設定しなくてもできました！

環境はＯＳ：ｗｉｎ７、office２００７だからですかね？
有難うございました。

お礼日時：2012/05/19 15:14