DAOを使ってCSVをアクセステーブルにインポートする方法

DAOの機能を使用するためにはDAOライブラリを参照設定する必要があります。

[ツール]-[参照設定]から「Microsoft DAO x.x Object Library」にチェックしてください。

Accessと同じフォルダにCSVファイルを格納します。

Public Sub ImportText_DAO()
    ‘ カレントDB
    Dim db              As DAO.Database 
    ‘ SQL
    Dim lsSQL           As String
    ‘ フォルダパス
    Dim lsPath          As String
    ‘ 起動パスを取得
    lsPath = CurrentProject.Path
    ‘ カレントDBを格納
    Set db = CurrentDb
    ‘ SQL作成(SELECT INTO文を使用しています)
    lsSQL = "SELECT * INTO T_TEST_DAO FROM [data001.csv] IN " &  "'" & lsPath & "' 'Text;HDR=YES'"
    db.Execute lsSQL
    ‘ 後片付け
    db.Close
    Set db = Nothing
End Sub

中古ノートパソコン 中古パソコン 【訳あり】 Windows10　64Bit☆ 第3世代Core i5搭載！ 便利なUSB3.0搭載 テンキー付 富士通 LIFEBOOK A572/E 【Core i5-3320M/4GB/250GB/MULTI】 店長オススメ 【中古】 USB3.0 HDMI ハイスペック ノートパソコン office付き

【当店限定！エントリーで全品 ポイント10倍！お買い物マラソン】中古パソコン 中古ノートパソコン Windows10 TOSHIBA dynabook B552 テンキー付タイプ ハイスペック 第三世代 Corei7 SSD512G 8Gメモリー Office付 無線LAN 無線Wifi対応 最新OS 中古動作良好品【送料無料】