ACCESS VBA でのCSV取込エラー

質問

ACCESS VBA でのCSV取込エラー

ACCESSにてフォルダ内にあるCSVファイルをすべてインポートしようとしています。
インポート定義を作成して、下記のコードを書いてみましたが、
データはすべてインポートされるのですが、
カンマが無視され、フィールドとフィールドの中間で途切れてデータが格納されてしまいます。
またフィールド４は日付形式なのですがこれがインポートエラーになります。

フィールド１　フィールド２　フィールド３ フィールド４
aaa aa,bbb bbb,ccc 　エラー

２日間ほどネットサーフィンをして調べたのですが、
回避方法が見つからなかったので、お知恵を拝借できますでしょうか？

よろしくお願いいたします。

Private Sub cmd06_Click()

Dim MyFile As String
Dim MyName As String
Dim strFolderName As String

DoCmd.SetWarnings False
DoCmd.OpenQuery "Q09_全CSVデータ削除"
DoCmd.SetWarnings True

strFolderName = GetFolderName() 'フォルダ選択ダイアログを表示

If Len(strFolderName) > 0 Then '選択結果を評価

MyFile = strFolderName & "\*.csv" '【拡張子csvのファイルのみ取得】
MyName = Dir(MyFile, vbNormal)

Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If GetAttr(strFolderName & "\" & MyName) <> vbDirectory Then

DoCmd.TransferText acImportFixed, "インポート定義", "T03_全CSVデータ", strFolderName & "\" & MyName, False, "" '【取得したファイルをインポート】

End If
End If
MyName = Dir

Loop

Else
MsgBox "フォルダは選択されませんでした"
End If

MsgBox "データのインポートが終了しました"

End Sub

回答No.2

bonaron · ベストアンサー

> DoCmd.TransferText acImportFixed, "インポート定義", "T03_全CSVデータ", strFolderName & "\" & MyName, False, "" '【取得したファイルをインポート】

CSVファイルなら、acImportFixed ではなく、
acImportDelim でしょうね。

場合によっては インポート定義も見直したほうが良いかもしれません。

お礼

ありがとうございました！
acImportDelim
にしたところ、両方のトラブルが解決いたしました。

回答No.1

layy

途中でエラーがおきたとすると考える問題は少なくとも２つ。
エラーになるレコードの扱い
残っているインポートしてないファイルの扱い

エラーになるのは期待した形でないので今のインポートの仕掛けはたぶん使えない。別の方法にします。TRANSFARTEXTを使用せずにインポート、を探す。。

エラーが起きたかわかれば次のファイルへ処理進めたら残りはなんとかなります。

ファイルは特定できているし
後は
OPEN
DOWHILE
LINE INPUT
PRINT
LOOP
CLOSE
等使います。