Excel VBA質問箱 IV

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

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


72973 / 76732 ←次へ | 前へ→

【8242】Re:カンマ区切りのCSVで保存した時の改行...
質問  でこポンうまい!! E-MAIL  - 03/10/6(月) 1:21 -

引用なし
パスワード
   ▼Hirofumi さん:
お返事有難う御座います!
VBは殆どわからないもので、変な書き方で伝わりにくいかも知れませんが
宜しくお願い致します。

>ExcelってSaveAs等で、改行コードを選んでCSV出力出来ましたっけ?
>出来ないと成ると、VBAでCSV出力のコードを組んでませんか?

改行コードを選んでCSV出力をできるかわかりませんが、確かにVBAで以下の様に書いてます。
---------------------------------------------------------------------
Activesheet.SaveAs Filename:="新しいファイル.csv", _
FileFormat:=xlCSV , CreateBackup:=False
---------------------------------------------------------------------


>また、最終レコードがLfで終わっても、WordやEditorでは、
>>なぜかデータが終わった1行下に改行が挿入されて保存されました。
>の状態に成りますが?
>
>実際にCSV出力したコードをUpされてはどうでしょうか?

実際のCSV出力したコードは非常に長いのでUpはできませんが、以下の様にループを組んでます。ループ内は基本的に代入処理しか行っていません。
-------------------------------------------------------------
Do While Range("A1").Offset(row_cnt,0)<>""
  Sheets(2).Range("D3").Offset(row_count,0).Value = _
  Sheets(1).Range("A1").Offset(row_count,0).Value
  row_cnt=row_cnt+1
Loop
-------------------------------------------------------------

改行を変数で行っている事に問題があるのでしょうか?
それとも、保存の方法に問題があるのでしょうか?
初心者で恐縮ですが、回答お願い致します。

0 hits

【7690】カンマ区切りのCSVで保存した時の改行を削除したいのですが。。。 でこぽんウマイ! 03/9/11(木) 21:49 質問
【7706】Re:カンマ区切りのCSVで保存した時の改行を... Jaka 03/9/12(金) 14:11 回答
【7879】Re:カンマ区切りのCSVで保存した時の改行を... でこポンうまい!! 03/9/21(日) 23:41 質問
【7889】Re:カンマ区切りのCSVで保存した時の改行を... Jaka 03/9/22(月) 13:48 回答
【7891】Re:カンマ区切りのCSVで保存した時の改行を... BOTTA 03/9/22(月) 16:38 回答
【7901】Re:カンマ区切りのCSVで保存した時の改行を... ichinose 03/9/22(月) 23:46 回答
【8311】Re:カンマ区切りのCSVで保存した時の改行... でこぽんウマイ! 03/10/8(水) 11:25 発言
【8494】Re:カンマ区切りのCSVで保存した時の改行... でこぽんウマイ! 03/10/20(月) 14:29 お礼
【7904】Re:カンマ区切りのCSVで保存した時の改行を... Hirofumi 03/9/23(火) 8:58 発言
【8242】Re:カンマ区切りのCSVで保存した時の改行... でこポンうまい!! 03/10/6(月) 1:21 質問
【8324】Re:カンマ区切りのCSVで保存した時の改行... Hirofumi 03/10/8(水) 20:56 回答
【8326】Re:カンマ区切りのCSVで保存した時の改行... Hirofumi 03/10/8(水) 21:26 発言

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