こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ExcelからVBAを使ってAccess2007のデータをコピーしたいのですが、うまくできません

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

投稿日時 - 2007-08-10 17:50:31

QNo.3244560

困ってます

質問者が選んだベストアンサー

「accdb」で検索したら、HITしましたよ。

「VBからACCESS2007に接続・・・」
http://okwave.jp/qa3119975.html

投稿日時 - 2007-08-10 18:00:16

お礼

出張しており確認が遅くなり申し訳ございませんでした。
ご回答ありがとうございました。
おかげさまで解決することができました。
本当にありがとうございました。

投稿日時 - 2007-08-26 21:48:01

このQ&Aは役に立ちましたか?

5人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問