Excel VBA質問箱 IV

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

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


74434 / 76732 ←次へ | 前へ→

【6765】Re:参照設定について(さらに訂正)
発言  ichinose  - 03/8/2(土) 13:32 -

引用なし
パスワード
   度々ですみません。
>>▼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 bk.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 お礼

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