参照設定 ライブラリファイルの参照の追加､削除

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit

'Rem ■Excel 97 以降ライブラリファイルの参照の追加、削除する■
'
'Rem ■c:\program files\microsoft office\office\msacc8.olb存在仮定■


'Rem Microsoft Access 8.0 Object Library を参照設定追加

  Sub add_ref()
      Application.VBE.activeVBProject.References. _
             AddFromFile "c:\program files\microsoft office\office\msacc8.olb"
  End Sub

'Rem Microsoft Access 8.0 Object Library を参照設定削除

  Sub del_ref()
      Application.VBE.activeVBProject.References.Remove _
             Application.VBE.activeVBProject.References("Access")
  End Sub

'Rem 新規ブックにＤＡＯ3.5 参照設定追加

    Sub add_ref2()
        Application.VBE.activeVBProject.References. _
             AddFromFile "c:\program files\common files\microsoft shared\dao\dao3032.dll"
    End Sub

'Rem 指定ブックにＤＡＯ3.5 参照設定追加

    Sub add_ref3()
        Workbooks(指定ブック).VBProject.References. _
             AddFromFile "c:\program files\common files\microsoft shared\dao\dao3032.dll"
    End Sub

 

2000年01月01日|[VBサンプルコード]:[参照設定]