32bitのExcelVBAでExcel Driverを使ったマクロが64bitのExcelで実行するとエラーとなる

Question

ExcelVBAでSQLの練習ができるマクロを組みました。内容としてはExcelの1シートをテーブルとして扱い、SQLを入力するとそのテーブルからデータを持ってくくるようなものです。仕組みはADODBのproviderにMSDASQLを、DriverはExcel Driverを使っています。

実行した際に「Excel Driverが見つかりません」とエラーが出る端末があり、動く端末との違いを探した結果、動く端末（作成端末）は32bit版のExcelで、エラーが発生するExcelは64bit版でした。

エラーが出る端末のODBCデータソース(64bit)のドライバーにExcel Driverがなかったので、インストールしてみましたがエラーは解消されませんでした。

同様の現象を解決したことのある方がいらっしゃいましたら情報頂けると助かります。

以下のソースのOpen時にエラーが発生します

Set wkCon = New ADODB.Connection
Set wkRs = New ADODB.Recordset
wkCon.Provider = "MSDASQL"
wkCon.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & "DBQ=" & wkBkNam & "; ReadOnly=False;"
wkCon.Open

wkRs.Open wkSQL, wkCon, adOpenStatic

Answer 1

作り方を変えたら対応できました。

Dim objCN As Object
Dim strCNString As String

Set objCN = CreateObject("ADODB.Connection")

strCNString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & DataSource & ";" _
& "Extended Properties=""Excel 8.0;" _
& "HDR=Yes"";"

objCN.Open strCNString

Set GetXLSConnection = objCN

Answer 2

ExcelのODBCドライバは、32bitのみだと思います。64bitの環境でデフォルトで使用できるのはSQL Serverくらいですね。
自分も前に32bitと64bitの質問した時に教わりましたが、32bitで動いて64bitで動かいない機能が多く存在することを理解しました。
これは、バグではなく、仕様なので、作り方を考え直した方が良いと思います。