Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73802 / 76732

←次へ　｜　前へ→


	【7403】Re:CSV保存時の改行コードについて

ゆういちろ

- 03/9/4(木) 11:41 -


	引用なし

	パスワード

▼よろずやさん：
>▼ゆういちろさん：
>>数行から成るエクセルシートをカンマ区切りの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 (変数)を１つずつ増やす事で行っています。

1 hits

▼

【7366】CSV保存時の改行コードについて ゆういちろ 03/9/3(水) 13:19