| |
▼よろずや さん：
>▼ゆういちろ さん：
>>数行から成るエクセルシートをカンマ区切りのCSV形式で保存した際に、改行コード
>>がCR+LF（各行の終わりが0x0D、最終行の終わりが0x0F）で出力されます。
>>CSV出力の際に、改行コードをLFのみで出力するにはどうすればよいでしょうか？
>
>現在はどのようなコードを書いてますか？
▼よろずや さん：
>▼ゆういちろ さん：
>>数行から成るエクセルシートをカンマ区切りのCSV形式で保存した際に、改行コード
>>がCR+LF（各行の終わりが0x0D、最終行の終わりが0x0F）で出力されます。
>>CSV出力の際に、改行コードをLFのみで出力するにはどうすればよいでしょうか？
>
>現在はどのようなコードを書いてますか？
よろずやさん、コメントありがとうございます。
現在は↓の様に書いてます。
Do While Range("A1").Offset(row_count)<>""
Sheets(2).Range("A1").Offset(row_count,0).Value = _
Sheets(1).Range("A1").Offset(row_count,0).Value
row_count=row_count+1
Loop
Sheet(2).Select
Activeworkbook.SaveAs Filename:="新しいファイル", _
FileFormat:=xlCSV , CreateBackup:=False
ActiveWindow.Close
↑はシート１が表になっていて表の値が空白になるまで、上から順に読み取ってシート２のセルに上から代入する処理を行ってます。(本当は処理がずらずらあります。)
その後で、シート２だけを"新しいファイル"という名前でCSVで保存してます。
行を変えるのは、Offsetを用いて、row_count (変数)を１つずつ増やす事で行っています。
|
|
- 03/9/3(水) 13:19 -
