参照設定 追加されている参照設定を解除(Library指定)

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Sub RefRemove()
'*****************************
'追加されている参照設定を解除
'*****************************
'解除する参照設定が判明している場合

Dim objBok As Workbook
Dim objReferences As Object
Dim strFoundName As String

strFoundName = "Microsoft DAO 3.6 Object Library"

Set objBok = ThisWorkbook

'既に解除されててもエラーは発生しません。
'存在しないLibraryを指定してもエラーは発生しません。
On Error GoTo ONERR:

With objBok.VBProject
    For Each objReferences In objBok.VBProject.References
        If objReferences.Description = strFoundName Then
            .References.Remove objReferences
        End If
    Next objReferences
End With
Exit Sub

ONERR:

    MsgBox Err.Number & vbTab & Err.Description, vbCritical, "参照設定Error!"

End Sub

 

2000年01月01日|[VBサンプルコード]:[参照設定]