Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74437 / 76732 ←次へ | 前へ→

【6762】Re:参照設定について
回答  ichinose  - 03/8/2(土) 10:51 -

引用なし
パスワード
   ▼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)

0 hits

【6761】参照設定について NH 03/8/2(土) 8:32 質問
【6762】Re:参照設定について ichinose 03/8/2(土) 10:51 回答
【6763】Re:参照設定について(訂正) ichinose 03/8/2(土) 10:55 発言
【6765】Re:参照設定について(さらに訂正) ichinose 03/8/2(土) 13:32 発言
【6767】Re:参照設定について(さらに訂正) NH 03/8/2(土) 18:25 発言
【6768】Re:参照設定について(さらに訂正) ichinose 03/8/2(土) 20:09 回答
【6769】Re:参照設定について(さらに訂正) NH 03/8/2(土) 20:28 お礼

74437 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free