csvファイル中の「e」が変換される。

000e34,data1,data2
000e1,data3,data4

上記のオリジナル（テキスト）データをCSVで開くと

0.00E+00 data1 data2
0.00E+00 data3 data4

と表示されてしまい、いつも手作業で編集しています。
オリジナルに細工（何か追記することで）eに変換されない方法はありませんでしょうか。

No.1 ベストアンサー 回答者： ryk1234 回答日時： 2005/03/24 11:21

追記するのであれば

000e34の頭にでも数字以外の文字を書けばそのまま表示されます。

例：a000e34

その他の方法としてはExcelを先に起動しておいて、形式を指定して表示するやり方もあります。

データ　＞　外部データの取り込み　＞　テキストファイルのインポート
ファイルの種類：すべて

ウィザード1/3
　次へ

ウィザード2/3
　区切り文字：カンマ
　次へ

ウィザード3/3
　列を選択しデータ形式：[文字列]を指定
　完了

この回答へのお礼

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

お礼日時：2005/04/10 01:09

No.3 回答者： Wendy02 回答日時： 2005/03/24 22:53

マクロでインポートする方法を書いておきます。

なるべく、標準モジュールに貼り付けてお使いください。
フォームなどのボタンやメニューボタンに登録すると便利かもしれませんね。

Sub CSVImport()
'Excel 2000 以上
Dim myFile As String
Dim lngCount As Long
Dim TextLine As String
Dim myArray As Variant
　myFile = Application.GetOpenFilename _
　("Excel(*.csv),*.csv")
　If myFile = "False" Or myFile = "" Then
　　Exit Sub
　End If
　Open myFile For Input As #1
　Do While Not EOF(1)
　　Line Input #1, TextLine
　　lngCount = lngCount + 1
　　myArray = Split(TextLine, ",")
　　Range(Cells(lngCount, 1), Cells(lngCount, UBound(myArray) + 1)) _
　　= myArray
　Loop
　Close #1
End Sub

この回答へのお礼

ありがとうございます。

お礼日時：2005/04/10 01:29

No.2 回答者： Wendy02 回答日時： 2005/03/24 11:59

＞オリジナルに細工（何か追記することで）eに変換されない方法はありませんでしょうか。

オリジナルというのは、CSV のことですね。
もし、そうでしたら、その項目の部分の先頭に、「'」を着ければよいです。
そして、インポートした後に、
一列を選択して、メニューのデータ－区切り位置で、
「'」で、#1 のryk1234さんと、同じような手順を踏みますが、

2/3 のところで、文字列の引用符を、「'」と選んで、次の3/3に、列のデータ形式を文字列に選んで、「完了」にします。

他にも、マクロでインポートする方法や、ご指摘のテキストファイル(.CSV）にEXCELを使わないで直接自動的に書き込む方法もあります。

なお、#1 の外部データの取り込みが、最も簡単です。

この回答へのお礼

ありがとうございます。

お礼日時：2005/04/10 01:29