Access2000のDBをAccess2007に移行しましたが、Excel2007からAccessのDBを呼び出す事ができなくなりました。
DBを呼び出す方法はExcelからVBAでDBに接続し、オブジェクトを開く方法をとっていました。
AccessのDBの拡張子が○○.mdbならば接続できますが、○○.accdbになると接続できません。
VBAをDAOからADOに変更してみましたが、やはり、だめでした。
何かいい方法はないでしょうか。
お忙しいところ、申し訳ございませんが、何卒、よろしくお願い致します。
ちなみに下記のようなVBAを組んでいます。
Dim objDB As New ADODB.Connection
Dim rcsTQ As New ADODB.Recordset
Dim DBname
Dim TQname
Dim dbCol As Integer
Dim rf As Field
DBname = "\データの整理1.accdb" 'パス名とデータベース名を指定する。
TQname = "T受付データ" 'テーブル名、クエリー名を指定する。
'データベースに接続する
objDB.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & DBname
'テーブル、クエリを開く
rcsTQ.Open TQname, objDB
'書き出しをする
Range("a10").Value = "テスト書き出し"
dbCol = 0
For Each rf In rcsTQ.Fields
dbCol = dbCol + 1
Cells(11, dbCol).Value = rf.Name
Next rf
Range("a12").CopyFromRecordset rcsTQ
objDB.Close
Set objDB = Nothing
End Sub
お礼
出張しており確認が遅くなり申し訳ございませんでした。 ご回答ありがとうございました。 おかげさまで解決することができました。 本当にありがとうございました。