| |
参照設定のFullPath,GUID,Major,Minorを知る方法。
小僧さんのコードで、Guid, Major, Minor の値の見つけ方が分からなかったので作ってみました。
参照設定の値を書き出す方法として
1.ツール／参照設定で追加したいものを手動で設定してから、「Output参照設定」を実行してください。
参照設定するコードとして。
2.FullPathで参照設定する場合は、SetAddFromFileを実行してください。
3.Guid, Major, Minorで参照設定する場合は、SetAddFromGuidを実行してください。
Option Explicit
Sub Output参照設定()
Dim i As Long, k As Long
Dim Flg As Boolean
Dim ary
ActiveSheet.UsedRange.ClearContents
MsgBox "Hit any key !!"
ary = Array("No.", "Description", "Name", "FullPath", "GUID", _
"Major", "Minor", "BuiltIn", "IsBroken")
Cells(2, 1).Resize(1, UBound(ary) - 1).Value = ary
With Application.VBE.ActiveVBProject.References
For i = 1 To .Count
Cells(i + 2, 1).Resize(1, UBound(ary) - 1).Value _
= Array(i, _
.Item(i).Description, _
.Item(i).Name, _
.Item(i).FullPath, _
.Item(i).GUID, _
.Item(i).Major, _
.Item(i).Minor, _
.Item(i).BuiltIn, _
.Item(i).IsBroken)
Next i
End With
Erase ary
End Sub
Sub SetAddFromFile()
Dim FromFile As String
FromFile = "****************" '<=======ここにFullPathを記入
On Error Resume Next
Application.VBE.ActiveVBProject.References.AddFromFile FromFile '参照設定
On Error GoTo 0
End Sub
Sub SetAddFromGuid()
Dim FromGuid As String
Dim Majo As Long
Dim Mino As Long
FromGuid = "****************" '<=========ここにGUIDを記入
Majo = * '<===========================ここにMajorを記入
Mino = * '<===========================ここにMinorを記入
On Error Resume Next
Application.References.AddFromGuid FromGuid, Majo, Mino '参照設定
On Error GoTo 0
End Sub
|
|
kobasan
- 05/12/29(木) 12:28 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
