AccessVBAでCSVファイルへ接続する方法

質問

AccessVBAでCSVファイルへ接続したいのですが
64ビットパソコンの場合は「Provider」は何を設定すればいいのか分からず
困っています。

私の持っているテキストでは32ビットパソコンの場合は
次のコードで接続できます。
このコードのProviderだけ64ビットのものに変更すればいいと思うのですが、いかがでしょうか。

--------------------------------------------------------------------------
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim MyPath As String

MyPath = CurrentProject.Path & "\"

Set CN = New ADODB.Connection

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　 ”Data Source=" & MyPath & ";" & _
"Extended Properties='Text;HDR=NO'"

Set RS = CN.Execute("SELECT * FROM test.csv")
------------------------------------------------------------------------------

教えてください。

宜しくお願い致します。

回答No.3

yumi-access · ベストアンサー

参照設定にMicrosoft ActiveX Data Object XX.X Libraryを追加

CN.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & MyPath & ";" & _
"Extended Properties='Text;HDR=NO'"

で如何でしょうか？私の環境ではこれで接続できました。

お礼

ありがとうございます！ 64ビットパソコンではJetプロバイダーは利用できないようですね。 いただいたコードをコピー＆ペーストさせていただき 実行したところ解決しました。

Powered by GRATICA

回答No.4

kkkkkm

> Office365が32ビットバージョンだとJetプロバイダーでも接続できるということでしょうか。

Accessが32bitだとJetが入りWindwosが64bitなのでAceも入っているということだと思います。
Windowsが64bitでしたら、Ace使う方がサポートしているファイルの種類が多いので無難ですね。

お礼

WindowsOSが64bitの場合は「ACE」ですね。 教えてくださってありがとうございました。

Powered by GRATICA

回答No.2

chayamati

テキスト形式の項目間の区切り記号は添付のように各種ありますが
インポートとエキスポートの区切り記号を同じにします。

補足

説明が不足しており申し訳ございません。

今回はCSVファイルのインポート・エクスポートでは
ありません。

ADODB接続でプロバイダーが見つからないエラーです。

当方のパソコンは64ビットパソコンなので
「64ビットパソコン用のプロバイダーを教えてください。」
という質問内容です。

本件解決しました。
お調べいただきありがとうございました。

回答No.1

kkkkkm

以下のサイトを参考にしてみてください。

接続文字列一覧｜OLEDB ODBC 32bit 64bitによって違います
https://access-skill.com/ado-connectionstring-list/

ちなみに

PC 64bit
Access 32bit

で

Microsoft.Ace.OLEDB.12.0
Microsoft.Jet.OLEDB.4.0
どちらでもデータの取得はできました。

お礼

Office365が32ビットバージョンだとJetプロバイダーでも接続できるということでしょうか。 こちらはJetプロバイダーではうまくいきませんでした。 でもACEプロバイダーで動作OKです。

Powered by GRATICA