DAO DAO参照設定エクセル(ExcelVBA)

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][DAO DAO参照設定エクセル(ExcelVBA)]
Option Explicit


Sub DAOAddFromFile()
'****************************************
'DAO参照設定エクセル(ExcelVBA)
'****************************************
'DAOとADOを両方参照設定しているとその後のコードに影響があります。
'※↑問題はありませんが変数宣言が面倒になります。

Dim objBok As Workbook
Dim objName As String

Set objBok = ThisWorkbook

'DAO Version3.6(Access2000)
objName = "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"

If Dir(objName) = "" Then
'DAO Version3.5(Access97)
objName = "C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll"
    If Dir(objName) = "" Then
        MsgBox "DAO DLLが見つかりません!", vbCritical, "DAO参照設定Error!"
        Exit Sub
    End If
End If

On Error GoTo ONERR:

objBok.VBProject.References.AddFromFile (objName)

Exit Sub

ONERR:

'参照設定済み以外のエラー
If Err.Number <> 32813 Then
    MsgBox Err.Number & vbTab & Err.Description, vbCritical, "DAO参照設定Error!"
End If

End Sub
関連リンク
DAO_Table_Name.html DAO DAOを使いMDBファイルのテーブル名を取得(ExcelVBA)
DAO_CreateDatabase.html DAO DAOデータベース(.mdb)作成〜データ入力一連
DAO_MDB_OpenRead.html DAO DAOを使いMDBファイルを開けてデータを読む(ExcelVBA)
RefRemoveAcquisition.html 参照設定 参照設定されているライブラリを検索取得
RefRemoveChoice.html 参照設定 追加されている参照設定を解除(一覧より指定)
RefRemove.html 参照設定 追加されている参照設定を解除(Library指定)
DAOAddFromFile.html 参照設定 DAO参照設定エクセル(ExcelVBA)





Production Japan Import Application. Since 1998