Access VBAでのファイル取込について

現在AccessのVBAにてファイル取込を実装しています。

vb
1    '未使用のファイル番号を取得
2    inFileNum = FreeFile
3
4    'fileNameのファイルを開く
5    Open fileName For Input Access Read As inFileNum
6    Set db = CurrentDb
7    
8    ' ファイルオープン
9    Do Until EOF(inFileNum)
10    
11        Input #inFileNum, in_item1. in_item2・・・・・・・
12        
13        ' データの登録
14        sql = "INSERT INTO TEST_TABLE・・・・・" 'インサート文
15        objDB.ExecSQL sql
16            
17    Loop

のような形で行ってます。
中身省略してますが、純粋にインポートではなく少し値を編集、追加する必要があるので、
ファイルを開いてインサート文で登録という形にしています。

そこでお伺いしたいのですが、ファイルの項目数が多くすごく長ったらしくなってしまいます。
インサート文は仕方ないかもしれませんが、
「Input #inFileNum, in_item1. in_item2・・・・・・・」
の部分だけでもなんとかならないものでしょうか。
もしくは、やりたいこととしては「ファイルの中身を編集して登録」です。
それさえ満たしていればどのようなやり方でも良いですので、
スマートな方法があれば教えてください。

行動規範の内容に同意します

回答2件

Docmd.TransferText acLinkDelim, ・・・ で、リンクテーブルとして取り込む。
このリンクテーブルを元に追加クエリ(INSERT INTO ・・SELECT)を生成する。
追加クエリを実行する。
リンクテーブルを削除する。

以上でどうでしょうか。

ループする必用もなく、追加クエリを一度実行するだけです。

    DoCmd.TransferText acLinkDelim, , "TEMP_TABLE", Filename, True

    SQL = "INSERT INTO TEST_TABLE " & _
          "SELECT ・・・・・ " & _
          " FROM TEMP_TABLE"
    objDB.Exec SQL

    DoCmd.DeleteObject acTable, "TEMP_TABLE"

End Sub

投稿2017/08/04 12:28