|
▼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)
|
|