|
>▼NH さん:
>こんにちは。
>
>>参照設定についてVB Editor-ツールで参照設定を行いますが、この
>>チェックする作業そのもの(若しくはチェックされているかどうか
>>の判定でも良いのですが)をVBAで行うことはできるのでしょうか?
>>出来たら楽になるんですけど。
>「Microsoft Scripting Runtime」(FSO)に参照設定する例です。
>
>'======================================================
>Sub main()
> Dim ans As Long
> ans = add_ref(ThisWorkbook, "Scripting", "c:\windows\system\scrrun.dll")
> If ans = 0 Then
> MsgBox "ok"
> Else
> MsgBox Error$(ans)
> End If
>End Sub
>'========================================================================
>Function add_ref(bk As Workbook, refname As String, refpath As String) As Long
Dim vbr As Reference '←これ削除してください
> With ThisWorkbook.VBProject
> On Error Resume Next
> wk = .References(refname).Name '参照設定されていなければ、エラー
> If Err.Number <> 0 Then
> Err.Clear
> .References.AddFromFile refpath
> If Err.Number <> 0 Then
> add_ref = Err.Number
> Else
> add_ref = 0
> End If
> Else
> add_ref = 0
> End If
> On Error GoTo 0
> End With
>End Function
>
>で参照設定できました。(Excel2000)
|
|