エクセルにCSVファイルから読み取りをするVBAで下記のように記述しています。
Sub CSV読取り
Dim FName As Variant
FName = Application.GetOpenFilename(FileFilter:="CSVファイル (*.csv), *.csv")
Open FName For Input As #1
For i = 1 To 400
Input #1, Columni
ThisWorkbook.Sheets("CSV取得").Cells(i, "E").Value = Columni
Next i
Close #1
End Sub
これでほとんどのデータ(数値や文字列の400件)をうまく読み取るのですが、どういう訳かデータが小数点以下第三位まである数値の場合、エクセルに取り込まれた段階で小数点以下第二位までに四捨五入されてしまうようです。
そのうえ、エクセルのセルの表示形式がそこだけ通貨(¥マーク付き)になっています。
なぜでしょうか?
またどうしたら正しく小数3位まで読み取れるのでしょうか?
CSVファイルをエクセル単純にエクセルで開けばちゃんと小数三位まであるのですが、データが横一列にカンマ区切り400件あるので256列しかないエクセルではすべてとりこめません。(だから上記のマクロで縦に変換してとりこんでいるのですが)
非常に困っています。
No.2ベストアンサー
- 回答日時:
追記です。
csvファイルがすべて数値だと思っていたもので・・・
Dim Columni As String
で回避することは出来ると思うのですが、さんが求めているものはもっと高いレベルのような気がしてきました。
すみませんでした。。。
この回答への補足
> csvファイルがすべて数値だと思っていたもので・・・
文字(全角および半角英字)と整数と小数です。
Dim Columni As String で十分問題は解決しました。
小数も正しく表示されましたし、空白がゼロにかわったり。文字が消えることも今のところ有りませんでした。
これでいいと思うのですが、何か問題が起きる可能性があるのでしょうか?
昨日からやっていますがまだ問題はおきていません。
ご教示いただけると幸いです。
No.4
- 回答日時:
こんばんは
Stringは一応、文字列、数値とも対応できるので大丈夫だと思います。
お役に立てて幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Accessデータをテキスト変換する時、小数点以下の桁数が切れてしまう
Excel(エクセル)
-
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
【ExcelVBA】各セルをダブルクォーテーションで括ってCSV保存したい
Visual Basic(VBA)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のブックで「元...
-
エクセルでファイルを閉じても...
-
Lotus 1-2-3のファイルをExcel...
-
エクセルの添付ファイルに記入...
-
ExcelファイルがDoxillionに突...
-
メールのエクセル添付ファイル...
-
エクセルVBAでアクセスファイル...
-
Windows11で画面下の帯の部分で...
-
CSVファイルでVBAを動かす方法
-
エクセルの塗りつぶしの色が勝...
-
ACCESSのVBで、エクセルファ...
-
エクセルのファイルが破損して...
-
エクセルで1.5GBのファイルを開...
-
エクセルのシートが常に小さく...
-
エクセルを開いたときのシート
-
エクセルにクリックすると指定...
-
2つのエクセルファイルをデュ...
-
エクセルファイルbookにPDFファ...
-
エクセルファイルに勝手に数字...
-
accessからエクセルにエクスポ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでファイルを閉じても...
-
エクセルで複数のブックで「元...
-
共有しているEXCELシートのアク...
-
Lotus 1-2-3のファイルをExcel...
-
エクセルを開いたときのシート
-
400KBのエクセルは重いの?
-
ExcelファイルがDoxillionに突...
-
エクセルの添付ファイルに記入...
-
エクセルにクリックすると指定...
-
メモ帳(拡張子log)の数字デー...
-
ACCESSのVBで、エクセルファ...
-
Windows11で画面下の帯の部分で...
-
開くと警告の出るExcelファイル...
-
エクセルVBAでアクセスファイル...
-
メモ帳で開く設定を元に戻したい。
-
CSVファイル
-
エクセルの塗りつぶしの色が勝...
-
CSVファイルでVBAを動かす方法
-
エクセルの中にエクセルを添付...
-
エクセルで1.5GBのファイルを開...
おすすめ情報