エクセル→CSVについて

質問

エクセルで編集してＣＳＶ形式で保存する場合、あるセルに８ケタの数字を入れたくて、[書式設定]-[ユーザー設定]で0を8個いれたのですが、ＣＳＶ形式で保存すると8ケタになりません。
同様に「'00000001」の形で入力してみてもだめでした。
何かいい方法はありますでしょうか？

回答No.8

imogasi

難しい要求にはＶＢＡで
（例データ）Ａ１：Ｃ３
1 11 a
2 12 b
3 13 c
（コード）
Sub test01()
Open "c:\My Documents\aa11.csv" For Output As #1
d = Range("A1").CurrentRegion.Rows.Count
For i = 1 To d
a = Format(Cells(i, "A"), "00000000")
b = Format(Cells(i, "B"), "00000000")
c = Cells(i, "C")
Write #1, a, b, c
Next i
Close #1
End Sub
(結果　メモ帳で開くと）aa11.csv
"00000001","00000011","a"
"00000002","00000012","b"
"00000003","00000013","c"
（修正）
（１）アウトプットファイル名はフォルダともに変える。
（２）上記は３列ですが、列数が増えた時やデータが文字列、数値に応じて上記のコードの変え方判るでしょうか。
（その他言いたいこと）通常プログラムで値を問題にする場合（が多く）では、「[書式設定]-[ユーザー設定]で0を8個いれたのですが」・・は書式を影響させようと思っても無理。セルのNumberFormatを見てＶＢＡコードで細工することが可能ですが、書式設定はエクセル独自のもので、考慮しないことが多い。

回答No.7

popesyu

その辺の「001→1」のようなおせっかい機能はエクセルの仕様ですのでどうしようもありません。
対策としては
他の人が仰るようにそもそもCSVを使わない
読み込んだあと再度書式設定で書式を整えるなどです。

回答No.6

chupark

書式設定を "文字列"にしておけばできませんか？

＞同様に「'00000001」の形で入力してみてもだめでした。

ということは、Excelで編集している段階では8桁で入力することに問題はなさそうかなと思いまして…。

回答No.5

aw11

こんにちわ。
今試してみたんですけど、できると思います。
CSV形式で保存された内容を、エクセルで確認してもデータと同じ状態にはならないと思います。（一番最後に空白の項目を入れておくと勝手になくなったり、"00000000"は"0"と表示されたり）
CSV形式のデータをエクセル編集して、保存すると思わぬところが変更されていたりするので、テキストエディタで編集するのが無難だとおもいます。

回答No.4

neKo_deux

No.1さんの、

> エクセルで再度読み込んだ(表示させた)場合、

で納得。
きちんと保存されているけど、Excelで読み込む際に自動的に00000001→1と変換してくれているわけですね。

csvファイルの拡張子をcsv→txtに変更、Excelの[ファイル]-[開く]からウィザードを使用し、カンマ区切りの文字列として読み込むとか。

回答No.3

sero

CSVファイルに保存した時点では8桁のまま保存されます。
しかし、CSVファイルは書式情報等を持てないタダのテキストファイルですから
再度Excelで開くと「0」が無視されてしまいます。

Excelで再度利用するならCSV形式で保存しなければ良いのです。
CSVファイルを他のアプリケーション等で使用するなら、そのままで
問題ないかと思います。

回答No.2

noname#7200

そもそもCSV形式は単純なテキストファイルなので無理じゃないでしょうか。

回答No.1

Tsukasa0215

>、[書式設定]-[ユーザー設定]で0を8個いれたのですが、ＣＳＶ形式で保存すると8ケタになりません。
試しにメモ帳で開いてみると、８桁になってます。
エクセルで再度読み込んだ(表示させた)場合、書式設定がcsv形式の情報として反映されていないから１桁の"1"になるのでは？