参照設定 参照設定されているライブラリを検索取得
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |