ExcelVBAを使ってテキストファイルをAccessにインポートする方法は？

ExcelVBAを使ってテキストファイルをAccessにインポートする方法はどのようにするのでしょうか？

テキストファイルは１列目にフィールド名があり、既存のテーブルにインポートしたいと考えています。

No.2 ベストアンサー 回答者： bonaron 回答日時： 2017/08/22 19:06

こんな感じで行けます。

Sub test()
　　Dim objAcc As Object
　　Set objAcc = CreateObject("Access.Application")
　　objAcc.OpenCurrentDatabase ThisWorkbook.Path & "\" & "ImportTXT.Accdb"
　　objAcc.docmd.TransferText acImportDelim, "Sample インポート定義", "Sample", ThisWorkbook.Path & "\" & "Sample.txt", True
　　objAcc.Quit
　　Set objAcc = Nothing
End Sub

No.1 回答者： hallo-2007 回答日時： 2017/08/17 20:34

以下の手順で考えます。

１、エクセルで、テキストファイルを開く
　　この辺りは、マクロの記録でもコードが出来ます。
　　テキストファイル次第（CSVなのか？）
２、アクセスのデータベースへ接続する。
３、SQLのコードを実行してアクセスのテーブルの最後に追加していく。
https://ateitexe.com/access-database3/
の辺りを参考にしてみて下さい。
難易度は高いかもしれませんが、出来たら応用が利きます、

この回答へのお礼

ありがとうございます。
Excelで読み込んで、Accessに追加する感じになるんですね。
Accessのインポート定義作成してあるので、それを使って直接インポート出来る物かと思ってました＞＜

お礼日時：2017/08/18 08:21