【VBA】参照設定を追加する

VBAを使用して参照設定を追加する
方法を記載します!

VBAコード

ここでは例として
 ・Microsoft Scripting Runtime
を追加します。

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」を追加できました。

既に参照設定に追加されている場合はエラーとなります。

参考

以下の記事で
 ・参照設定しているライブラリの一覧を出力する方法
を紹介しています。

タイトルとURLをコピーしました