ＣＳＶファイルを読み込んだときに文字 列として読みたい

[柏木敬子]

柏木です
Ｅｘｃｅｌ２０００ＳＲ－１（に限らないでしょうが）　でＣＳＶファイルを読む時のトラブルなのです

ＣＳＶデータで　５１８２－１　というのがあると　Ｊａｎ－８２　になってしまいます
　　　　　　　　　００００００２というのがあると　　数値の２になってしまいます
　
　　　　　　　”５１８２－１”　や　”００００００２”　にしても同じです

　　　　　　　’５１８２－１　にすると　’５１８２－１となり　Ｆ２で再入力すると　表示は５１８２－１になりますが’が付いています

これは仕方のないことでしょうか
拡張子をＣＳＶではなくてＴＸＴにしてＥＸＣＥＬの開くで読み込めば列毎に標準や文字列の指定ができるのですが．．．

なお　オプションのＬＯＴＵＳ１－２－３形式の操作キーにチェックは入っていません

[Kashiwa Takuji]

柏です。

csv ファイルを txt ファイルを開いたときと同じ、テキストファイル ウィザードに
よって、列の書式設定を指定して開くので良ければ、以下の方法でできます。

メニューバーの「データ」から「外部データの取り込み」－「データの取り込み」を
クリック。オープンした「データファイルの選択」ダイアログで、「ファイルの種類」に
「テキストファイル」を選択します。

これをマクロ記録しておいて加工してやれば、任意の csv ファイルを選択して読み込む
ことも難しくはないと思います。

--

∧∧
Zzz。. (- - )⌒υ
⌒⌒⌒⌒
柏　琢司
Kashiwa Takuji

"柏木敬子" <kashiwa...@hotmail.com> wrote
in message news:OEQXWkek...@tk2msftngp13.phx.gbl...

[柏木敬子]

柏木です
ありがとうございました
よく知らない人が　データをＣＳＶでもらったときに
ファイルをＷクリックしてＥｘｃｅｌに取り込んでしまい
「５１８２－１　が　Ｊａｎ－８２　に化けた」のを
「Ｅｘｃｅｌが壊れた」と大騒ぎするのです　　お笑いでしょ　
それを防ぐ方法はないかと思ったのですが　無いみたいですね

ご教示いただいた方法も参考にさせていただきます

"Kashiwa Takuji" <t-ka...@seibu-const.co.jp> wrote in message news:ejbJ4ffk...@tk2msftngp13.phx.gbl...

> メニューバーの「データ」から「外部データの取り込み」－「データの取り込み」を
> クリック。オープンした「データファイルの選択」ダイアログで、「ファイルの種類」に
> 「テキストファイル」を選択します。
>

[Hiroyuki]

ひろゆきです

"柏木敬子" wrote in message news:%2381TZO5...@TK2MSFTNGP11.phx.gbl...

> 「５１８２－１　が　Ｊａｎ－８２　に化けた」のを
> 「Ｅｘｃｅｌが壊れた」と大騒ぎするのです　　お笑いでしょ　

横からスミマセン。私にとってはお笑いではなく、納得でき
ません。もちろん、ｃｓｖ形式のテキストデータはexcelに読み
込まれた時の解釈で意図しない変換が生じることは驚きで
はありませんが、5182-1の扱い方に納得がいきません。

5182-1, 1-1, 10-1, 100-1, 1000-1, 10000-1
5182-1, 5-1, 51-1, 518-1, 5182-1, 51820-1
, 5182-1, 5-1, 51-1, 518-1, 5182-1, 51820-1

と、いうcsvファイルをエディタで作りました
このファイルをダブルクリックでexcel2000に読み込ませると
Jan-82 1-1 10-1 100-1 1000-1 10000-1
Jan-82 5-1 51-1 518-1 5182-1 51820-1
5182-1 5-1 51-1 518-1 5182-1 51820-1

となります。

A列だけは、テキストを読み込むときに、日付として解釈する
のが優先されているのは明らかですが、どこで設定されてい
るのでしょうか？

[あだーじょ]

> ません。もちろん、ｃｓｖ形式のテキストデータはexcelに読み
> 込まれた時の解釈で意図しない変換が生じることは驚きで
> はありませんが、5182-1の扱い方に納得がいきません。
>
> 5182-1, 1-1, 10-1, 100-1, 1000-1, 10000-1
> 5182-1, 5-1, 51-1, 518-1, 5182-1, 51820-1
> , 5182-1, 5-1, 51-1, 518-1, 5182-1, 51820-1
>
> と、いうcsvファイルをエディタで作りました
> このファイルをダブルクリックでexcel2000に読み込ませると
> Jan-82 1-1 10-1 100-1 1000-1 10000-1
> Jan-82 5-1 51-1 518-1 5182-1 51820-1
> 5182-1 5-1 51-1 518-1 5182-1 51820-1
>
> となります。
>
> A列だけは、テキストを読み込むときに、日付として解釈する
> のが優先されているのは明らかですが、どこで設定されてい
> るのでしょうか？

拡張子.csv形式のテキストファイルは、そのまま読み込むとデータ形式の設定は
できません。csvファイルを、データ形式を指定しながら読み込むにはつぎのよ
うにします。

※Excel2000の場合

１、まず先にExcelを起動しておいて、「データ」-->「外部データの取り込み」
-->「テキストファイルのインポート」をクリックする。
２、すると、テキストファイルウィザードが起動するので、それに従ってファイ
ルを読み込みます。
※このとき、最初に表示されるファイルは、拡張子.txtのファイルだけなので、
拡張子が.csvのファイルはファイルの種類を「すべてのファイル」に変更して
表示させてください。
３、テキストファイルウィザードの3番目で、列ごとにデータ形式を指定するよ
うになっています。ここで、データ形式を文字列にします。

2003/10/16 16:54:11
-----------------------
あだーじょ <adagi...@hotmail.com>
# パソコン歴は長いけど、文科系出身なので
# 難しい話はなんにも分かりません。(^^;)

[あだーじょ]

質問の趣旨を読み違えたみたいです。失礼しました。

デフォルトで、csvファイルのデータを、文字列として読み込ませるように設定
する方法はないようです。
データを""で括ってもうまくいきませんでした。

2003/10/16 17:08:05

[Yukio Kishiue]

岸上です。

"Hiroyuki" <smi...@hotmail.com> wrote
in message news:u5c$nm7kDH...@TK2MSFTNGP11.phx.gbl ...

> A列だけは、テキストを読み込むときに、日付として解釈する
> のが優先されているのは明らかですが、どこで設定されてい
> るのでしょうか？

　カンマの後(つまりB列以降の文字列の先頭)にスペースがあるか
らではないでしょうか？スペースを取るとまた違った結果になりま
す。
--
岸上幸生 ( ykis...@mail.gosei.co.jp )

[Hiroyuki]

ひろゆきです

"Yukio Kishiue" wrote in message
news:ev4GcW8k...@TK2MSFTNGP12.phx.gbl...

> > A列だけは、テキストを読み込むときに、日付として解釈する
> > のが優先されているのは明らかですが、どこで設定されてい
> > るのでしょうか？
>
> 　カンマの後(つまりB列以降の文字列の先頭)にスペースがあるか
> らではないでしょうか？スペースを取るとまた違った結果になりま
> す。

　ありがとうございました。

　目からウロコです。列特異性ではなく、フォーマットなんですね。
まだ、完全には理解していませんが、スペースがない場合で、
２つの数字の間にハイフンがある場合は、日付だろうと仮定し
て処理され、ある範囲を越えた場合は、無処理のテキストに
なっているようですね。日本語書式と英語書式などが混在する
ので、もう少し複雑な条件がありそうですが・・・・

ユーザーが操作できるかどうかは別にして、フォーマットによって
変化するのなら、納得しました。

[柏木敬子]

柏木です
"Hiroyuki" <smi...@hotmail.com> wrote in message news:eIEihH9k...@TK2MSFTNGP09.phx.gbl...

> "Yukio Kishiue" wrote in message
> news:ev4GcW8k...@TK2MSFTNGP12.phx.gbl...
>
> > > A列だけは、テキストを読み込むときに、日付として解釈する

ということではない　のはわかって頂けたと思います

> > 　カンマの後(つまりB列以降の文字列の先頭)にスペースがあるか
> > らではないでしょうか？
そうなのです　「スペースがあるとそのままの形式で読める！　ラッキー！」
と思ったら読みこんだ物の頭にスペースが入っているので
ソートやｖｌｏｏｋｕｐでうまくないし．．．

> ユーザーが操作できるかどうかは別にして、フォーマットによって
> 変化するのなら、納得しました。
私は納得しません　が　まぁそんなもんか　とあきらめてます

ずいぶん前に「Ｅｘｃｅｌのベテラン」とかいう人が講師できたので
この件をぶつけてみたのですが
いろいろ試してみて「わからない　持ち帰って調べてみます」といったっきり
返事なし　に終わっています　　やっぱりね

[Saito]

"123","456"とダブルクォーテーションで囲むだけでは、文字列として認識しないので
="123",="456"とすると文字列として認識できると思いましたが・・・

試してみては・・・

[Miyahn]

"柏木敬子" wrote in message news:OEQXWkek...@tk2msftngp13.phx.gbl
> 拡張子をＣＳＶではなくてＴＸＴにしてＥＸＣＥＬの開くで読み込めば列毎
> に標準や文字列の指定ができるのですが．．

以下は、昨年の12月に投稿した記事の練り直しですが。

スクリプトを使って、txt な一時ファイルを作って、全てテキスト設定
で開く方法はいかがでしょう？
下記内容のテキストファイルを作成し、適当な名前のスクリプトファイル
として保存します。　例えば、「CSV2TXT.vbs」とか。

Dim xlApp, WS, FS, Args, TempFile, I, Format(255)
Set Args = WScript.Arguments
If Args.Count <> 1 Then WScript.Quit
If LCase(Right(Args(0),4)) <> ".csv" Then WScript.Quit
Set WS = CreateObject("WScript.Shell")
TempFile = WS.ExpandEnvironmentStrings(WS.Environment.Item("Temp"))
Set WS = Nothing
Set FS = CreateObject("Scripting.FileSystemObject")
TempFile = FS.BuildPath(TempFile, FS.GetBaseName(Args(0)) & ".txt")
FS.CopyFile Args(0), TempFile
For I = 0 To 255
Format(I) = Array(I + 1, 2) ' 全列を文字形式に
Next
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = TRUE
.WorkBooks.OpenText TempFile, , , , , , , , True, , , , Format
.DisplayAlerts = False ' ※
.ActiveWorkBook.SaveAs Args(0), 6 ' ※
.DisplayAlerts = True ' ※
.ActiveWorkBook.Saved = True
End With
Set xlApp = Nothing
FS.DeleteFile TempFile '※
Set FS = Nothing

このファイル若しくはそのショートカットに、対象ファイルをドラッグ＆
ドロップすれば、全部の列を文字列として Excel で開きます。
SendTo フォルダに入れておけば、右クリック->「送る」で利用できます。

一時ファイルを消す関係で、元の CSV ファイルを上書きしますので、
タイムスタンプは変わります。
一時ファイルが残ってもかまわないなら、コメントに※がある 4行を削除
して下さい。

--
Miyahn?戌年うまれ
HQF0...@nifty.ne.jp

[Miyahn]

Miyhan より、自己フォローです。

よく考えたら、一時ファイルは必要なく、より短いコードで可能でした。
で、せっかくですから "csv" ファイルをダブルクリックした時に利用
できるように、レジストリへの登録機能を追加してみました。

Dim xlApp, Args, I, Format(255)
Set Args = WScript.Arguments
If Args.Count = 0 Then Reg_UnReg ' レジストリ登録/解除

If Args.Count <> 1 Then WScript.Quit
If LCase(Right(Args(0), 4)) <> ".csv" Then WScript.Quit

For I = 0 To 255
Format(I) = Array(I + 1, 2) ' 全列を文字形式に
Next
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
xlApp.WorkBooks.OpenText Args(0), , , , , , , , True, , , , Format
Set xlApp = Nothing
WScript.Quit
' 以上が本体コード、以下はレジストリ登録／解除の為のコード
Sub Reg_UnReg
Const TKey = "HKCR\Excel.CSV\shell\"
Dim WS

Set WS = CreateObject("WScript.Shell")

On Error Resume Next
WS.RegRead TKey & "OpenAllText\"
If Err Then
WS.RegWrite TKey, "OpenAllText,Open"
WS.RegWrite Tkey & "OpenAllText\", "全て文字項目で読み込む(&A)"
WS.RegWrite Tkey & "OpenAllText\command\", _
"wscript """ & WScript.ScriptFullName & """ ""%1"""
WS.PopUp "レジストリに登録しました。", 1,"登録完了"
Else
WS.RegDelete Tkey & "OpenAllText\command\"
WS.RegDelete Tkey & "OpenAllText\"
WS.RegWrite TKey, "Open"
WS.PopUp "レジストリから解除しました。", 1,"解除完了"
End If
On Error Goto 0
Set WS = Nothing
End Sub

このスクリプトを引数なしで実行すると、レジストリへ自分自身を登録
し、"csv" ファイルをダブルクリックした時に起動するようになります。
通常の開き方をしたい時は、"csv" ファイルを右クリックして「開く」
を選んで下さい。
レジストリに登録済みの状態で、再度引数なしで実行すると、登録は
解除されます。

--
Miyahn?戌年うまれ
HQF0...@nifty.ne.jp

[Ｓｉｎｃｈａｎ]

Sinchanです
"Saito" <m-sa...@muf.biglobe.ne.jp> wrote in message news:O7bv7vI...@tk2msftngp13.phx.gbl...

> "123","456"とダブルクォーテーションで囲むだけでは、文字列として認識しないので
> ="123",="456"とすると文字列として認識できると思いましたが・・・
> 試してみては・・・

試してみました。
=５１８２－１　　は　５１８１　になりました　セルの中身は　＝５１８２－１　です　計算してるのですね
＝”５１８２－１”　は　５１８２－１　ですが　セルの中身は　＝”５１８２－１”　です
　手入力した　５１８２－１　と　＝”５１８２－１”　を　ＩＦ文で判定させたら　同じ　と判定しました
　でも　＝”５１８２－１”　と　セルに入っているのは気持ち悪いですね

５１８２－１　を　５１８２／１／１　と認識して　Ｊａｎ－８２　と表示するとは
これもマイクロソフト流のお節介な機能だと思います

[Miyahn]

再び Miyahn より、自己フォローです。

先の自己フォロー news:uma6xHM...@TK2MSFTNGP10.phx.gbl
で提示したコードでは、スレッドで例示されているデータのうち、
5182-1 は正常に読み込まれますが、0000002 や、（先頭に空白のない）
1-1 や 10-1 などはやはり勝手に変換されてしまうようです。

ということで、最初のフォローのように、やはり txt な一時ファイル
を作成する方法がよろしいようです。

news:OHg3YYLl...@tk2msftngp13.phx.gbl のコードの 3行目に

If Args.Count = 0 Then Reg_UnReg ' レジストリ登録/解除

を挿入し、末尾に news:uma6xHM...@TK2MSFTNGP10.phx.gbl の
コードの WScript.Quit 以下を合体させれば、レジストリ登録機能
付きに修正できます。

--
Miyahn?戌年うまれ
HQF0...@nifty.ne.jp