![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・ライブラリを参照設定へ追加
できます!
VBAコード
ここでは例として
・参照設定「Microsoft Scripting Runtime」を追加
します。
※VBAでよく使用される「File System Object」が含まれているライブラリです。
Option Explicit
Sub sample()
On Error GoTo Err
'Microsoft Scripting RuntimeのGUID
Const MSR_GUID = "{420B2830-E718-11CF-893D-00A0C9054228}"
'参照設定を追加
Application.VBE.ActiveVBProject.References.AddFromGuid MSR_GUID, 1, 0
MsgBox "参照設定を追加しました!"
Exit Sub
Err:
MsgBox "エラーが発生しました!" & vbCrLf & Err.Description
End Sub
実行結果
参照設定に「Microsoft Scripting Runtime」を追加できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/02/vba_addreference_001.png)
![「Microsoft Scripting Runtime」が追加されている](https://excel-vba.work/wp-content/uploads/2021/02/vba_addreference_002.png)
既に参照設定に追加されている場合はエラーとなります。
![エラーメッセージ](https://excel-vba.work/wp-content/uploads/2021/02/vba_addreference_003.png)
参考①
以下の記事で
・参照設定しているライブラリの一覧を出力する方法
を紹介しています。
参考②
参照設定の追加する方法の詳細は、公式サイトをご確認ください。