|
>1点教えて下さい。
>
>csvのデータ中に前0を含むデータがうまく変換できません。
>前0が除かれて処理されます。
>
>どの箇所を修正すればいいのか教えて下さい。
>
>
>尚、更新しようとしているシートは文字列で指定
>しています
此れは、読み込むコードの問題ではなく?(セルへの代入は、0が付いた形で代入しています)
Excelが数値として受け取れる物は、勝手に数値にしてしまう事によります
此れを、回避する場合は、予め読み込む列のセル書式を文字列にして置く方法が有ります
また、全てを文字列で読み込んで善いのなら、「Private Sub CSVRead」の中で
以下の部分のコメントアウトを活かせば、全て文字列とし読み込みます
(範囲に代入する前に、代入する範囲のセル書式を文字列に設定しています
'フィールド内で改行が有る場合
If Not blnMulti Then
With rngWrite.Offset(lngRow)
With .Resize(, UBound(vntField) + 1)
'出力範囲を文字列に設定
.NumberFormat = "@" '★この行を活かす
'データを出力
.Value = vntField
End With
End With
|
|