ExcelVBAで参照設定を自動に行う

AccessのVBAではReferencesコレクション中のReferenceオブジェクトを使用して、行うことが出来ると、ネット上で読みました。

Excel2003で同じ事を行おうと、コーディングをしたところ、変数の宣言で「... As 」まで記述したところに表示されるメニュー（？）に、「Reference」が表示されませんでした。

「ExcelVBAで参照設定を自動に行う」方法、もしくは私の環境のExcel2003で「Reference」が表示されない考えられる原因を教授下さい。

よろしくお願いします。

No.1 ベストアンサー 回答者： taocat 回答日時： 2005/02/27 00:31

こんばんは。

以下は、Microsoft DAO 3.6 Object libraryの参照設定です。

------------------------------------------------
Sub Use_Dao_Reference()

　Dim Temp As String
　Dim Ref As Object

　Temp = "C:\Program Files\Common Files\Microsoft Shared\Dao\dao360.dll"
　Set Ref = Application.VBE.ActiveVBProject.References.AddFromFile(Temp)


'又は

　Temp = "{00025E01-0000-0000-C000-000000000046}"
　Set Ref = Application.VBE.ActiveVBProject.References.AddFromGuid(Temp, 5, 0)

End Sub

-------------------------------------------------

以上です。
　

この回答へのお礼

どうもありがとうございました。

お礼日時：2005/03/02 02:13