Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 8 : Access 2013)
csvファイルをインポートすると失敗します
投稿日時: 20/06/26 12:03:28
投稿者: クレ

 
csvファイルをAccessにインポートしたいのですが
インポートは成功するのですが中身を見ると
インポートに失敗している箇所があります
 
+-などの記号があるセルは全て空白になってしまいます
使用している記号は+,-,",',,.,などです
 
コードは以下の通りです
 
 
Private Sub btnpattern_Click()
      DoCmd.TransferText acImportDelim, , "シートの名前", "ファイルのパス", True, ""
 
Msgbox "インポートしました"""
End Sub
 
 
自分で調べた限りでは特殊文字が入っていると
エラーを引き起こす要因になるとのことですが
どうにかしてVBAでインポートはできないでしょうか。
(最悪はツールバーから手動でやります)
 
宜しくおねがいします。
 

回答
投稿日時: 20/06/29 09:16:08
投稿者: sk

引用:
csvファイルをAccessにインポート

引用:
+-などの記号があるセルは全て空白になってしまいます
使用している記号は+,-,",',,.,などです

引用:
DoCmd.TransferText acImportDelim, , "シートの名前", "ファイルのパス", True, ""

テキストインポートウィザードを実行して
あらかじめインポート定義を作成しておいた上
(各フィールドのデータ型を明示的に指定し)、
TransferText メソッドの第 2 引数 SpecificationName に
そのインポート定義の名前を示す文字列を渡すように
されることをお奨めします。

投稿日時: 20/07/03 17:46:19
投稿者: クレ

ありがとうございます!
定義を設定したら無事に動作しました!