複数の（csv）ファイルをAccessデータベースにインポートする方法

Question

同じスキームを持つ複数のcsvファイルがあり、それらを1ステップでインポートしたいとします。ソリューションは「インポートウィザード」を使用することができますが、1つのファイルしかインポートできません。ああ、それはmsaccess2003で働くのが最善でしょう。 THX

Answer 1

最も簡単な解決策は、あなたがあなたのファイルを持つディレクトリ、および型にDOSプロンプト、変更を開始することです：あなたは、多くの場合、これを行う場合、あなたはあなたが倍増することができますbatch-fileを作成することができ

type *.csv > allfiles.txt 

をデスクトップからクリックします。

Answer 2

インポートファイルには、時間がない中でこれを行うことができますcsvファイルであるため、MSACCESSするために、JavaのJDBC conectorためhttp://www.javaworld.com/javaworld/javaqa/2000-09/03-qa-0922-access.htmlを参照し、インポートするための小さなプログラムを書くことができます...

他の言語のための他のインポートのオプションがあります。

Answer 3

ファイルのリストでインポートを実行するだけであれば、バッチファイルは必要ありません。あなたはディレクトリを（使用してファイルのリスト）を取得することができます：

Dim strCSVFileName As String 

    strCSVFileName = Dir("*.csv") 
    Do Until strCSVFileName = vbNullString 
    [import strCSVFileName] 
    strCSVFileName = Dir() 
    Loop 

もちろん、これは、Access内からの輸入をやっていると仮定しますが、あなたのタグを与えられ、それは、あなたの質問の論理的な推論です。

Answer 4

これは古いスレッドですが、問題を検索したときに表示されました。うまくいけば、このコードは誰かが同じ挑戦に取り組むのを助けるでしょ上記のDavid-W-Fentonの提供例をビルド/展開します。

ウィザードを使用してファイルを最初にインポートしました。 "bestTranscripts"という名前のテーブルにインポートされ、 "BestImport"としてインポートテンプレートが保存され、TransferTextコマンドでこれらの値が使用されました。

---

Function ImportFiles() 

On Error Resume Next 

Dim cnn As New ADODB.Connection 
Dim targetSet As New ADODB.Recordset 

Dim sourceDirectoryName As String 
Dim sourceFileName As String 


sourceDirectoryName = "<path containing files>" 

sourceFileName = Dir(sourceDirectoryName & "\*.txt") 
Do Until sourceFileName = vbNullString 
    DoCmd.TransferText acImportDelim, "BestImport", "bestTranscripts", sourceFileName 
    sourceFileName = Dir() 

Loop 


End Function