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

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

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

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

Public Sub ImportText_DAO()
    ‘ カレントDB
    Dim db              As ADODB.Connection 
    ‘ SQL
    Dim lsSQL           As String
    ‘ フォルダパス
    Dim lsPath          As String
    ‘ 起動パスを取得
    lsPath = CurrentProject.Path
    ‘ カレントDBを格納
    Set db = CurrentProject.Connection
    ‘ 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