参照設定 参照設定されているライブラリを検索取得

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][参照設定 参照設定されているライブラリを検索取得]
Option Explicit


Sub RefRemoveAcquisition()
'**************************************
'参照設定されているライブラリを検索取得
'**************************************
Dim objBok As Workbook
Dim objReferences As Object
Dim strMSG As String
Dim strRefName As String
Dim strRefDscrp As String

Set objBok = ThisWorkbook

For Each objReferences In objBok.VBProject.References
    strRefName = objReferences.Name
    strRefDscrp = objReferences.Description
    strMSG = strMSG & strRefName & vbTab & strRefDscrp & vbCr
    Debug.Print strRefName & "[" & strRefDscrp & "]"
Next objReferences

MsgBox strMSG, 0, "参照設定済ライブラリ"

'【Description】
' オブジェクトに関連付けられている説明の文字列を設定又は取得
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