Referencesの参照設定

質問

http://www.tsware.jp/tips/tips_565.htm
を参考に、
VBAで参照設定されているライブラリの一覧を取得したいのですが、

Sub t()
Dim Ref As Reference

For Each Ref In References
With Ref
Debug.Print .Name
Debug.Print .FullPath
Debug.Print .GUID
Debug.Print .Major
Debug.Print .Minor
Debug.Print .IsBroken
End With
Next Ref

End Sub

を実行すると、

Ref As Reference

の部分で、コンパイルエラー（ユーザー定義型は定義されていません）
になります。

多分、Referencesの参照設定をしないと、このコードは使えないからだと思うのですが、
参照設定にどこにチェックをすればいいでしょうか？

回答No.1

keithin · ベストアンサー

こんばんは。

ご覧になったＵＲＬは、アクセスＶＢＡの解説です。
ご質問の様子で上手くいかなかったってことは、アクセスじゃなく例えばエクセル？で実行しているという状況でしょうか。

例えばエクセルの場合、ご質問の直接の回答は
Microsoft Visual Basic for Aplications Extensibility
に参照設定を入れて使います。

また、セキュリティセンターの設定のマクロの設定で、「ＶＢＡプロジェクトオブジェクトモデルへのアクセスを信頼する」にチェックを入れておく必要があります。

またエクセルで行う場合
http://officetanaka.net/excel/vba/tips/tips100.htm
も参考に、referencesコレクション単独では参照できない点も修正が必要です。

お礼

ありがとうございます。