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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][参照設定 追加されている参照設定を解除(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
関連リンク
DAO_CreateDatabase.html DAO DAOデータベース(.mdb)作成〜データ入力一連
DAO_MDB_OpenRead.html DAO DAOを使いMDBファイルを開けてデータを読む(ExcelVBA)
RefRemoveAcquisition.html 参照設定 参照設定されているライブラリを検索取得
RefRemoveChoice.html 参照設定 追加されている参照設定を解除(一覧より指定)
RefRemove.html 参照設定 追加されている参照設定を解除(Library指定)
DAOAddFromFile.html 参照設定 DAO参照設定エクセル(ExcelVBA)





Production Japan Import Application. Since 1998