Excel VBA質問箱 IV

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

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


74442 / 76738 ←次へ | 前へ→

【6763】Re:参照設定について(訂正)
発言  ichinose  - 03/8/2(土) 10:55 -

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

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