| |
▼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
-------------------------------------------------------------
改行を変数で行っている事に問題があるのでしょうか？
それとも、保存の方法に問題があるのでしょうか？
初心者で恐縮ですが、回答お願い致します。
|
|
でこポンうまい！！
- 03/10/6(月) 1:21 -
