←←←/Access/エクスポート・インポート

Sub エクスポート()
   On Error GoTo errHandler
   DoCmd.TransferText acExportDelim , , "あ" , "D:\Out.CSV"
   Exit Sub
errHandler:
   MsgBox Err.Dexcription.VbCritical
End Sub


Sub インポート()
    On Error GoTo errHandler
    DoCmd.TransferText acImportDelim , "インポート定義" , "テーブル名" , "D:\in.txt"
    Exit Sub
errHandler:
    MsgBox Err.Description , VbCritical
End Sub