ACCESS 自動的に参照設定するVBA

On Error Goto Err_Shori
Dim Ref As Reference
Const strExcel As String = “{00020813-0000-0000-C000-000000000046}”
Set Ref = References.AddFromGuid ( strExcel , 1, 3 )
Set Ref = Nothing
exit sub →　この1行を抜くと空のメッセージが出る

Err_Shori:
If Err.Number = 32813 Then
Resume Next
Else
Msgbox Err.Description
End If

これはExcelのライブラリを参照するVBAです。

1行目はエラー処理で、Err_Shori以降に飛ばします。
参照設定が既にされているときは、エラーが出てしまうので、その場合には回避させます。

strExcelに代入した、「00020813-0000-0000-C000-000000000046」は、GUIDというもので、この値がExcelのライブラリを示しています。

‘自動的に参照を解除するVBA

Dim Ref As Reference
For Each Ref In References
If Ref.Name = “Excel” Then
Application.References.Remove Ref
End If
Next Ref

参考ＵＲＬ
http://www.iltt.info/page/information/contents/20100113.htm