VB6からCSV形式でデータを出力し、
エクセルで解析をしたいのですが、

０１−１５を出力するとエクセルでは
1月15日と認識されてしまいます。

どのように出力すれば01-15となるのでしょか？
皆様、宜しく御願い致します。

エクセルで開くとセルの形式が自動で適当なもの（この場合は日付型）に変更されます。
エクセル上での表示のみ「01-15」と表示したいのであれば
CSVで「="01-15"」とすれば一応可能です。

takk様

はやい返答ありがとうございます。
今後も宜しく御願い致します。

本当にうまくいったのでしょうか？　気になったので
メモ帳で下記のようなCSVファイルを作成しExcelで表示したのですが
すべてだめでしたが？

"01-15",'01-15,０１−１５,01-15,"０１−１５",”０１−１５”

# すみませんでした。私の早とちりでした。　データの前に　= を付加してやると
# いう事ですね

文字列に書式設定されているSｈeetにVBから直接書き込めばいけるみたいですが

> 本当にうまくいったのでしょうか？　気になったので
> メモ帳で下記のようなCSVファイルを作成しExcelで表示したのですが
> すべてだめでしたが？
>
> "01-15",'01-15,０１−１５,01-15,"０１−１５",”０１−１５”
>
> 文字列に書式設定されているSｈeetにVBから直接書き込めばいけるみたいですが

csvファイルをダブルクリックして、
関連付けられているExcelで起動したときに
期待通りに表示したかったら
="01-15"
で保存しておけばいいかと・・・。

> ="01-15"
> で保存しておけばいいかと・・・。

すみませんでした。私の早とちりでした。　データの前に　= を付加してやると
いう事ですね

通常のCSV形式でファイルを作成し、拡張子を　.Txt にして保存した場合
下記のように設定するば文字列として読込みます。
又、拡張子さえ変更すれば、通常のCSVファイルとしても使用できます。

Private Sub Command1_Click()
    Dim xlApp    As Excel.Application
    Set xlApp = New Excel.Application
    xlApp.Workbooks.OpenText FileName:="C:\My Documents\test001.txt", _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        Comma:=True, FieldInfo:=Array(Array(1, 2), Array(2, 2), _
        Array(3, 2), Array(4, 2))
    xlApp.Visible = True
    Set xlApp = Nothing
End Sub


使用データ("C:\My Documents\test001.txt")

"01-15","０１−１５",０１−１５,01-15
"01-15","０１−１５",０１−１５,01-15
"01-15","０１−１５",０１−１５,01-15

拡張子をCSVに換え、読み込むと日付データに
なってしまいますよ

どうすれば・・・・？

> 拡張子をCSVに換え、読み込むと日付データに
> なってしまいますよ
>
> どうすれば・・・・？

通常のCSV形式でファイルを作成し、拡張子を　.Txt にして保存した場合
下記のように設定するば文字列として読込みます。

元のCSVファイルを　名前を変えるなり、コピーするなりして　拡張子を Txt にして下さい。
FileCopy App.Path & "\test.csv", App.Path & "\test01.txt"　のように

csv ではExcelが自動で読込むので　Txt にすると別途各列のデータ型が指定できます。
同様の操作でスペース区切りやタブ区切りのファイルを表示する事もできます。