VBAを使用して区切り文字でテキストをインポートする

Question

すべて同じ（既知の）レイアウトを持つ新しいtxtファイルの追加を自動化しようとしています。

カラムは、タブ（タブ）を使用して区切られています。テキストファイルをインポートするためのアクセスウィザードのようなVBAでこれを行うことは可能ですか？

私はあなたがあなたの仕様ファイルを作成するために、一度、ウィザードを通過する必要がありますVBA

Answer 1

でDoCmd.TransferText方法を使用しています。これを行うには、通常のようにテキストファイルをインポートしますが、ウィザードの最後には、 "Advanced ..."ボタンをクリックしてください。ここでspecファイルを作成します。

これらの列は、入力ファイル、データ型とすべてに一致LLください。フィールド区切り文字と適切なテキスト修飾子を使用している場合は、必ず{tab}を選択してください。

今、あなたはこの

のようにVBAで使用することができます（この後の同じ画面に戻って来て、あなたの古いものの上に保存し、その後 Specs...をクリックすることで編集することができた）

をあなたのスペックを保存

DoCmd.TransferText acImportDelim, "your spec name", "destination table name", sourceFilePath 

ファイルに基づいてtrueまたはfalseであるかどうかを判断する必要があるパラメータHasFieldNamesがあります。

Answer 2

インポートウィザードでは、ファイル形式のわずかな変更でも、すべての手順をクリックする必要がありますもう一度インポートを有効にするには、

@ Remouの答えをms Access import table from file in a queryでチェックして、SQLで直接行う方法については、私は実際に私のプロジェクトで同じ方法を使用しています。私はこのようなものを使用しています（詳細については、私のリンクを参照してください）。

insert into MyTable (column-list...) 
select (column-list...) 
from [data-source-specifications].[file-name] 
any-other-clauses...; 

ただ1つの警告。このSQL構文を通常のAccessクエリオブジェクトに入れると、Accessがクエリオブジェクトを開くことさえできないほどの困難を乗り越える可能性があります。だから作成し、Accessで試している間にテキストファイルにクエリを保存します。クエリをテストし、作業されるとアクセスがそのまま正確にそれを実行するように、そのように、VBAサブルーチンに保存します。プロセスのこの種を開始する

sub MyTableImport() 
    sqlStr = "   insert into MyTable (column-list) " ' leave a space at the 
    sqlStr = sqlStr & "select (column-list...) " ' end of each line of the string 
    sqlStr = sqlStr & "from [data-source-specifications].[file-name] " 
    sqlStr = sqlStr & "any-other-clauses... ;" 

    DoCmd.RunSQL sqlStr 
end sub