ExcelのVBAによる参照設定について
VBAによる参照設定について教えてください。
以前にOffice2010と2003の互換性の問題について教えていただいた際に、以下のようなやり方を教えていただき、AccessのVBAでExcelの参照設定はできたのですが、ExcelのVBAでAccessの参照設定をしようとした際に「Dim Ref As Reference」の部分が「ユーザー定義型は定義されていません」となってしまいコンパイルできません。Accessの参照設定にチェックを入れると問題ないので、Excelに「Reference」というデータ型が使えないのだと思うのですが、Excelではどのように書いたらよいのでしょうか？
On Error GoTo Err_Rise
Dim Ref As Reference
Const strGUID As String = "{00020813-0000-0000-C000-000000000046}" 'Excelの参照設定をする場合
Const strGUID As String = "{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}" 'Accessの参照設定をする場合
Set Ref = References.AddFromGuid(strGUID, 1, 3)
Set Ref = Nothing
Err_Rise:
If Err.Number = 32813 Then
Resume Next
End If
On Error GoTo 0
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
早速のご回答ありがとうございます。また、返事が遅くなりすいませんでした。おっしゃるとうり循環参照が存在するときのみ有効のようですね。ひとつシートに複数の計算式を入れそれが正確か判断するときに使っていましたが、何とか常駐できないものか試行錯誤していましたが、システム上の事のようです。ご親切にありがとうございます。