EXCELのVBAでACCESSにアクセスすると「My Documen
EXCELのVBAでACCESSにアクセスすると「My Documents」フォルダに.odcファイルが多数生成される。
(1)ACCESS(業務DB.mdb)にあるAテーブルのデータをEXCELのシートに取り込みたいために、EXCELで「外部データの取り込み」から業務DB.mdbのAテーブルとリンクしています。
(2)EXCELをオープン時に自動で業務DB.mdbのAテーブルのデータを更新させたいため、以下のVBAで更新処理をしています。
----------------------------------------------
With Selection.QueryTable
.Connection = Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & ThisWorkbook.Path & "\業務DB.mdb;" _
, _
"Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=5;Jet OLEDB:" _
, _
"Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password" _
, _
"="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLE" _
, "DB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False")
.CommandType = xlCmdTable
.CommandText = Array(シート.Name)
.Refresh BackgroundQuery:=False
End With
----------------------------------------------
(3)上記(2)を実行するたびに「My Documents」の下にある「My Data Sources」フォルダに業務DB.odcファイルが生成されます。
具体的には、処理1回目で「業務DB.odc」が生成され、2回目で「業務DB(1).odc」、3回目で「業務DB(3).odc」というように.odcファイルが処理毎に生成されてしまいます。
この.odcファイルを処理毎に生成されるのを防ぎたいのですが、手法がわかりません。
.odcファイルは1ファイルだけで十分です。
ご存知の方、ご教授宜しくお願い致します。m(_ _)m