|
はじめまして。どなたか、ご存知でしたら教えてください。
CSVファイルのデータを読み込んで、値をエクセルのシートに書き込もうとしています。
CSVのある列に3/8や1/4などの分数が含まれおり(ちなみその列はインチを表しており、分数だけでなく16等の整数のデータもある)、そのデータを文字列として3/8や1/4という形で読み取りたいのですが、3月8日というふうに日付で読み取ってしまいます。どうすればよいのでしょうか?
'CSVファイル名を設定する
strOutFileName = ActiveWorkbook.Path + "\" + "BodyPrice.csv" Workbooks.Open strOutFileName
With ActiveSheet
'操作対象最下行を取得
strEndRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
strCSVサイズ = ""
For i = 1 To strEndRow
'データ取得
strCSVサイズ = Trim(.Cells(i, 4).Text)
strCSVサイズに3月8日という値が設定されます。
strCSVサイズ = Trim(.Cells(i, 4).Value)
に変更すると、strCSVサイズに2003/3/8という値が設定されます。
以上、よろしくお願いします。
|
|