access vbaでcsvを既存のテーブルにインポートしたい

Question

access vbaでcsvを既存のテーブルにインポートしたいのですが、
インポート処理を実行した際に既存のテーブルと同じテーブル名のテーブルが作成されてしまいます。

しかも、既存のテーブルはすべてデータ型をテキスト型にしているのですが、
新しく作られたテーブルはデータ型が勝手に指定され、一部項目でインポートエラーが発生します
（おそらくcsvをインポートして新規のテーブルを作成するときと同じ動作をしています）
また、外部データタブから行うインポート操作では既存のテーブルを指定してうまくいきます。

何が原因か教えていただけますでしょうか？

以下ソースコードです

---

Sub csvデータ取込(filePath As String, fileName As String)

'インポート処理
DoCmd.TransferText acImportDelim, , "テーブル名", filePath & fileName, True

End Sub

---

Comments

[hatena19]

> インポート処理を実行した際に既存のテーブルと同じテーブル名のテーブルが作成されてしまいます。

同じ名前のテーブルが複数存在している状態になるということですか。
ちょっと考えられない状況ですね。
本当に同じかどうかもういちど確認してください。
もし、間違いなく同じ名前なら、データベースファイルが破損していると思われますので、
下記の操作を試してみてください。
最適化/修復を実行する。
それでだめなら、
新規データベースファイルを作成して、旧ファイルからすべてのオブジェクトをインポートする。

[kan0203]

最適化や新規データベースファイルを試しましたが、結果は同じでした。
ただ、テーブル名を"a"という一文字に変更したところ、同じテーブル名が作成されることはなくなりました。やはり日本語を使用しているのが良くなかったのでしょうか？

また、テーブルの名称を変えてもデータ型のインポートエラーは解決しませんでした。
すべてテキスト型にしているのに入らない文字とかあるのでしょうか？
インポートエラーになっている項目には"＊"が格納されています。
エラー内容も「データ型の変換エラー」です。

[hatena19]

事前にテーブルを用意しておいて、すべてのフィールドをテキスト型にしておいて、そのテーブルにインポートしてもエラーになりますか。
エラーになるCSVデータ例、テーブル名など、再現性のある情報を提供できますか。

[kan0203]

>事前にテーブルを用意しておいて、すべてのフィールドをテキスト型にしておいて、
>そのテーブルにインポートしてもエラーになりますか。
エラーとなります。

テーブル名:a
フィールド数:16(すべてテキスト型)
csvファイルもフィールド数、フィールド名は一致しており中の２項目に"****"が入っている
フォームに適当なボタンを設置し、上記のソースを使用しています。

[sazi]

以下で実行してみて下さい。
CurrentDb.Execute "INSERT INTO " & "テーブル名" & " SELECT * FROM [Text;DATABASE=" & filePath & ";HDR=YES;].[" & fileName & "]"

[kan0203]

だめですね…インポートエラーにはなりませんが”****"はうまく格納されないです

[8524ba23]

https://teratail.com/help/question-tips#questionTips11
https://teratail.com/help/question-tips#questionTips2
https://teratail.com/help/question-tips#questionTips34
https://teratail.com/help/question-tips#questionTips36
https://teratail.com/help/question-tips
は読みましたか？
読んだ結果を本文に反映ください。解決のヒントを探れるかもしれません。

[sazi]

> ”****"はうまく格納されないです
とはどのような事ですか？抽象的ではなく具体的に報告されて下さい。

[sk.exe]

> インポートエラーになっている項目には"＊"が格納されています。

> 中の２項目に"****"が入っている

「値に "*" という文字が含まれている列が CSV ファイル上に 2 つある」という意味でおっしゃっているのだとして、その値が格納されているのは元の CSV ファイルの何行目においてなのでしょうか。

Answer 1

access vbaでcsvを既存のテーブルにインポートしたいのですが、
インポート処理を実行した際に既存のテーブルと同じテーブル名のテーブルが作成されてしまいます。

DoCmd.TransferText acImportDelim, , "テーブル名", filePath & fileName, True

TransferText メソッドによって新規テーブルが作成されるのは、第 3 引数 TableName に渡された文字列が、カレントデータベース上に存在するどのテーブルの名前とも一致しない場合です。

つまり「既存のテーブルと同じ名前を指定しているように見えているだけに過ぎない」という可能性が最も高いと思います。
例えば "ー"（長音記号）、"－"（全角ハイフン）、"一"（漢数字の1）、"─"（横罫線）、"–"（ダーシ）の違いのように。

既存のテーブルはすべてデータ型をテキスト型にしているのですが、
新しく作られたテーブルはデータ型が勝手に指定され、一部項目でインポートエラーが発生します

TransferText メソッドの第 2 引数 SpecificationName の指定を省略した場合、Access はインポート元のテキストファイルをスキャンし、各列のデータ型を「推定」します。

Microsoft サポート: テキスト ファイルのデータをインポートまたはリンクする

Access は、ファイルの最初の 25 行をスキャンして、テーブルのフィールドのデータ型を決定します。 ソースの最初の 25 行については、どのフィールドにも異なるデータ型を混在させないようにすることを強くお勧めします。 また、テキスト値として扱う必要のある非テキスト値を、単一引用符または二重引用符で囲みます。

ソース ファイルの 25 行目より後に異なるデータ型の値が混在する場合、インポート操作でスキップされたり不適切に変換されたりする可能性があります。

仮にインポート先として既存のテーブルを指定したとしても、そのテーブルにおいてそれぞれのフィールドがどのデータ型として定義されているかは加味されません。

また、外部データタブから行うインポート操作では既存のテーブルを指定してうまくいきます。

テキストインポートウィザードに関しては、最近のバージョンのAccessにおいてインポート先のテーブルの構造に合わせて各列のデータ型を決定するような挙動をすることが確かにありますが、それは「TransferText メソッドの呼び出し時における動作」とは別の問題です。両者はあくまで別の機能です。

TransferText メソッドの呼び出し時において、CSV ファイルの各列のデータ型を明示的に指定する方法は次の 2 つです。

• あらかじめテキストインポートウィザードを実行してインポート定義を作成しておき、TransferText メソッドの呼び出し時、第 2 引数 SpecificationName にそのインポート定義の名前を表す文字列を渡す。

• インポート元となる CSV ファイルが保存されているフォルダにあらかじめ Schema.ini ファイルを作成しておき、TransferText メソッドの呼び出し時に第 2 引数 SpecificationName の指定を省略する。