参照設定 追加されている参照設定を解除(一覧より指定)

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][参照設定 追加されている参照設定を解除(一覧より指定)]


Sub RefRemoveChoice()
'*****************************
'追加されている参照設定を解除
'*****************************
'解除する参照設定を選択する場合

Dim objBok As Workbook
Dim objReferences As Object
Dim strRefName As String
Dim strRefDscrp As String
Dim strMSG(2) As String

strMSG(2) = "[はい] 解除 / [いいえ] 維持"

Set objBok = ThisWorkbook

With objBok.VBProject
    For Each objReferences In objBok.VBProject.References
        strRefName = objReferences.Name
        strRefDscrp = objReferences.Description
        strMSG(1) = strRefName & "[ " & strRefDscrp & " ]"

        If MsgBox(strMSG(1) & vbCrLf & vbCrLf & strMSG(2), vbInformation + vbYesNo, "参照設定解除") = vbYes Then

            .References.Remove objReferences

        End If
    Next objReferences
End With

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