csv ファイルのデータを文字列として開く

質問

csv ファイルを開いた時に、最初から
全てのセルの
「セルの書式設定 > 分類」を「文字列」にすることは出来ますか？

一度、拡張子を txt に変えて
「テキスト ファイル ウィザード」
「列のデータ形式」を文字列にするのは知っているのですが、

・拡張子を変える
・エクセルを開く
・ファイルを選ぶ
・全ての列を選択
・文字列にする

と非常に面倒なので
csv ファイルのままでファイルを開いたら
最初から文字列にする方法を探してます。

お願いします。

回答No.2

imogasi · ベストアンサー

VBAなら下記１０数行でできる。
ＡＬＴ＋Ｆ１１（ＶＢＥ画面になる）
挿入ー標準モジュール
下記をコピー貼り付け
書き込むエクセルシートを開いておいて
Ｆ５(実行）
（実行の指示は、
メニューに入れる
コマンドボタン
など色々有るのでＶＢＡの本かＷＥＢで勉強してください。）
Sub test01()
f = Application.GetOpenFilename(FileFilter:="ＣＳＶファイル,*.csv" _
, Title:="データファイルを選んでください")
i = 1
Open f For Input As #1
While Not EOF(1)
Line Input #1, a
s = Split(a, ",")
For j = 0 To UBound(s)
Cells(i, j + 1).NumberFormatLocal = "@"
Cells(i, j + 1) = s(j)
Next
i = i + 1
Wend
Close #1
End Sub

お礼

ありがとうございます。
これで、だいぶ、楽になりますね。

エクセルの設定で
「csv を開いた時は、すべて文字列になる」
なんていう設定はやはりないのでしょうか？
レジストリをいじるみたいな方法でもよいのですが・・・

回答No.1

sea_of_love

拡張子が「.csv」であれば「.txt」に変えなくてもそのまま読めませんか？

「.txt」ファイルの場合通常区切り文字の種類が限定できません。つまりなんでもありなのでウィザードが起動するのだと思います。

区切り文字としては
「カンマ」「タブ」「スペース」等があります。
「.csv」は「Comma Separated Value」つまり区切り文字として「カンマを使用している」ので「.txt」に変える必要はありません。

補足

txt であれ csv であれ、
開いた時にセルの書式設定を文字列にしたいのです。
デフォルトの標準だと

1-23 > 1月23日
００３ > 3

になってしまいますが、これを回避したいのです。