Excel VBA質問箱 IV

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

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


73802 / 76732 ←次へ | 前へ→

【7403】Re:CSV保存時の改行コードについて
質問  ゆういちろ E-MAIL  - 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


↑はシート1が表になっていて表の値が空白になるまで、上から順に読み取ってシート2のセルに上から代入する処理を行ってます。(本当は処理がずらずらあります。)
その後で、シート2だけを"新しいファイル"という名前でCSVで保存してます。

行を変えるのは、Offsetを用いて、row_count (変数)を1つずつ増やす事で行っています。
0 hits

【7366】CSV保存時の改行コードについて ゆういちろ 03/9/3(水) 13:19 質問
【7386】Re:CSV保存時の改行コードについて よろずや 03/9/3(水) 22:52 発言
【7403】Re:CSV保存時の改行コードについて ゆういちろ 03/9/4(木) 11:41 質問

73802 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free