Access VBAでCSVデータをインポートした時16桁目以降が0になってしまう

Question

お世話になります。
Accessのインポートで困っているのでご教授お願いします。
【やりたいこと】
VBAを使ったインポートを前提に、
sample.csvに15桁以上の数値が入っているがそれを指数表示にしないで、
テキスト型で全ての桁の数値を正しくテーブルにインポートしたい。

【試した事】
取り込むテーブルのフィールドの型を色々変えてみた。
１、短いテキスト　⇒　指数表示のテキストがインポートされてその後正しい数字になおせない
２、数値型（整数型)　⇒キー違反のため～　対象の項目だけ追加されない
３、数値型（長整数型)　⇒キー違反のため～　対象の項目だけ追加されない
４、数値型で書式に0を入れる⇒キー違反のため～　対象の項目だけ追加されない
５、数値型（倍精度浮動小数点型）⇒インポートできるが16桁目以降が０になってしまう

【調べた事】
数値型はもともと計算などを目的としているので、16桁目以降は0になってしまう仕様になっている。
恐らく、テキスト型で取り込むしかないと思っているがテキスト型で取り込もうとすると指数表示のままテキストとして取り込まれてしまう。これを指数表示とならないようにテキストデータとしてなら方法がありそう。

調べ方が悪いのか答えがヒットしません。
どなたか教えて頂けると助かります。よろしくお願いします。

Answer 1

Accessで検証していませんが、この変の記事を試されたということですか・・。

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1326694058?__ysp=YWNjZXNzIOODhuOCreOCueODiCDmjIfmlbDooajnpLo%3D

http://psp8155.blog13.fc2.com/blog-entry-108.html

CSVファイル内の数値が省略されてしまう場合
https://help.smaregi.jp/hc/ja/articles/360000674267-CSV%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E5%86%85%E3%81%AE%E6%95%B0%E5%80%A4%E3%81%8C%E7%9C%81%E7%95%A5%E3%81%95%E3%82%8C%E3%81%A6%E3%81%97%E3%81%BE%E3%81%86%E5%A0%B4%E5%90%88

Comments

[name1224]

ご回答ありがとうございます。はい、こちらの記事の内容も試させて頂きました。15桁までですと確かに問題なく取り込めるのですが、16桁以上の場合ですと後ろの数字が0に変換されてしまいました。
VBAではなく、手動のインポート作業で対象フィールドのみテキスト型で指定してあげれば一応インポートはできました。今回は、他の内容もVBAでやらせているのでVBAでインポートを実現させたいです。

[退会済みユーザー]

AccessのあるPCが手元にないため今日は検証できませんが（他の方の回答があればいいですね）・・。

手動で色々ためした結果、テキスト型・手動でできたので、ACCESS VBAで取り込む方法（コード）を
知りたいという内容でしたか？？（結果、はじめの指数表示のはなしは関係なし？）

もしくは、手動で取り込んだ先で、指数表示に変換する必要がある。または、
テキスト型で取り込むだけでは不十分なのでさらにACCESS　VBAで対応したい。ですか？
テキスト型以外の何らかの方法をVBAコードを含めてもっと検証したい。ですか？

理解力がなくてすみません。

[name1224]

親身になってご回答頂きましてありがとうございます。
何とか調べて解決することができました。
やりたかった事は、下記の内容で指数表示にしないかつ16桁目以降が0に変換されないようにする事でした。

＞手動で色々ためした結果、テキスト型・手動でできたので、ACCESS VBAで取り込む方法（コード）を
知りたいという内容でしたか？？（結果、はじめの指数表示のはなしは関係なし？）

今回私がとった方法は、Access側でインポート定義を作成して、それをVBA側で指定する事で解決ができました。

http://psp8155.blog13.fc2.com/blog-entry-108.html
こちらのサイトの内容は初めて知ったのでとても勉強になりました。
ありがとうございます。

[退会済みユーザー]

毎回といっていいくらいACCESSへのデータのインポートエラーで悩まされます・・。
解決されたということでよかったと思います。

データ処理に進みたいのにもんもんとすることろですね。
ありがとうございました。