Linuxで作成したCSVをExcelVBAで読込時の改行コードについて

質問

※重複した質問があったら、すみませんm(_)m
とっても困っています。教えてください。

Linuxで作成したCSVをExcelVBAで読込時、
前行の改行コード（LF）が、次の行頭のデータに
連結されてしまいます。
どうすれば、この問題を解決できますか？
OSは、WindowsXP、EXCELは2000です。

よろしくお願いします。

回答No.3

bin-chan · ベストアンサー

ＶＢＡということを見落としてました。

--------それはそれとしてＶＢＡでワークシート関数を利用する方法です--------------
Range("B1") = Application.WorksheetFunction.Clean(Range("A1"))

---------------------------------------------------

１回のInputで全行分読み込みしてしまうのであれば
VBAのSplit関数で文字列を配列に分解してしまう。
あとは１行ごと、ループさせてください。

追加部分だけ記述

Dim strArrey()　　as string
Dim nArrey　　　　as long

'strArreyに行単位で入ります。
strArrey()=split(wk_code, vbLF)
'nArreyに件数が入ります。
nArrey=udound(strArrey())

お礼

ご丁寧にありがとうございました。
早速、試してみます。

補足

Application.WorksheetFunction.Cleanで、解決できました。ありがとうございました。

回答No.4

nofutureforyou

そもそも、データの転送のときに、Linux (Unix) の改行が Windows の改行に変換されているべきだと思います。
普通そういう手段があるはずです。

回答No.2

SpiralGalaxy

元データを変換してよいのなら
(LF)を(CR)(LF)に変換してやればよいのでは？

Linux上でコマンドたたいてもできるでしょうけど
Windows上でやりたいのなら超メジャーエディタの「秀丸」を使って
EUCコードを指定してそのCSVファイルを読み込んで、そのままSJISコードを指定して書き出してやればよいのでは？

http://hide.maruo.co.jp/software/hidemaru.html

回答No.1

bin-chan

> 前行の改行コード（LF）が、次の行頭のデータに
連結されてしまいます

列Ａに、ということですね。
CLEAN関数を使用します。

１．列Ａと列Ｂの間に一列挿入
２．セルＢ１に式[=clean(a1)]を入力
３．セルＢ１を下方向に必要なだけコピー（右下黒い四角をダブルクリックでも可）
４．列Ｂ全体をコピーし、「形式を選択して貼り付け」-「値」で変換
５．必要に応じて列Ａを削除

でいかがでしょう？

補足

すみません。Clean関数は、VBAで使用できますでしょうか？
ソースの一部です↓

Open ActiveWorkbook.Path & "\" & FileName For Input As #1
Do While Not EOF(1)
　　Input #1, wk_Code
Loop

上記で、wk_CodeにCSVの１列目が代入されるのですが、
２巡目になると、前行の改行コードと２行目の１列目の
値が連結して入ってしまいます。
この「wk_Code」から、Linuxの改行コードを除きたいです。

初心者ですみません。よろしくお願いします。