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

質問

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

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

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

よろしくお願いします。

回答No.1

taocat · ベストアンサー

こんばんは。
以下は、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

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

以上です。

お礼

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