現在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件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/08/07 06:03