Excel VBA DAO について

質問

いつもお世話になっております。

現在Excel2007でマクロを組みました。
下記ソースのような形で、マクロを実行するブック内にあるシートから、データを取得するのですが・・・・

～ソース例～
dim dbEngine as object
Dim db as object
Dim rs as object
Dim sql as object

'■SQL格納
sql = sql & "Select 社員名 "
sql = sql & " ,Sum(月収) as 年収 "
sql = sql & " From 月収一覧 "
sql = sql & "Group By 社員名,月収; "

'■DBを開く
Set dbEngine = CreateObject("DAO.DBEngine36")
Set db = dbEngine.OpenDatabase("C:\社員月収.xls", False, False, "Excel8.0;")

'■SQL実行後レコードセットへ格納
Set rs = db.Openrecordset(sql)

としていますが「■DBを開く」の部分でCreateObject内で宣言している”DAO.DBEngine36”の部分をそのPCのDAOライブラリのバージョンによって変更したいのですが、可能なのでしょうか？？

以上です＞＜よろしくお願いいたします！！

回答No.1

DOUGLAS_ · ベストアンサー

'一例）
Dim dbEngine As Object
Dim dllver As String
dllver = Mid(Dir("C:\Program Files\Common Files\Microsoft Shared\DAO\Dao3*.dll"), 5, 1)
If dllver = "" Then
　MsgBox "Dao360.dll を インストール してください"
Else
　Set dbEngine = CreateObject("DAO.DBEngine.3" & dllver)
　MsgBox "DAO " & dbEngine.Version
End If

お礼

回答ありがとうございました。

参考になりました＾＾

でも、どんなDAOでも変更できるようにして、インストール不要にしたかったので、DAOライブラリをしようするやり方は今回諦めました。