【Excel】 csvファイルを参照した時、頭の0が消されてしまいます。。

質問

こんにちは。
Excelでcsvファイルを参照するシートが有ります。
参照元のcsvファイルの内容が変更された場合、
このシートの内容を更新するために、csvファイルを開かなければならないと思います。
ただ、Excelでcsvファイルを開くと表示形式が標準となるため、csvに含まれるハイフンのない、
郵便番号(09*****) や電話番号(090********)といった数値の頭の0が消されてしまい(9*****)や(90********)と表示されてしまいます。
文字列として扱えればよいと思うのですが…。

参照先の(09*****)を表示するにはどうしたらよいでしょうか。

回答No.2

imogasi · ベストアンサー

#1が標準のご回答ですが、もしＶＢＡに興味あれば
読み込むシートの文字列の列の書式を文字列に設定し、
下記コードを標準モジュールに貼り付けて
Sub test01()
Filename = Application.GetOpenFilename
MsgBox Filename
Open Filename For Input As #1
i = 1
While Not EOF(1)
Line Input #1, a
s = Split(a, ",")
For j = 0 To UBound(s)
Cells(i, j + 1) = s(j)
Next j
i = i + 1
Wend
Close #1
End Sub
を実行（Ｆ５キー）すればよいです。

回答No.1

zap35

拡張子がｃｓｖだとＥＸＣＥＬが勝手に開いてしまいますので、拡張子をｔｘｔに変更してＥＸＣＥＬで開くとテキストファイルウィザードが起動します。

２画面目で区切り文字にカンマを選択し、３画面目で列毎のタイプを「文字」にすれば頭の０が消えることはなくなります。