VBA テキストファイル出力改行が何故か入る

最近の書き込み件数：今日 0件、昨日 0件
未読分：1件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#1 2014年12月17日(水)17時30分
From: 改行マン

返事削除変更

VBA テキストファイル出力改行が何故か入る

お世話になっております。Excel2003で作業中です。
Sub ファイル出力()
Dim StrFN As String
Dim FSO As Object, buf As String
Set FSO = CreateObject("Scripting.FileSystemObject")

StrFN = FSO.Buildpath(ThisWorkbook.Path, "テスト.txt") 'ファイルの名前を決める

Dim i As Long, LngLoop As Long
Dim IntFlNo As Integer

With ThisWorkbook.Worksheets("テスト")
.Activate
.Cells.Replace What:=vbLf, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False

LngLoop = Range("a" & Rows.Count).End(xlUp).Row
IntFlNo = FreeFile
Open StrFN For Output As #IntFlNo '出力用でファイルを開く
For i = 1 To LngLoop '最大行までループ

.Range("K" & i).Value = .Range("A" & i).Value & .Range("B" & i).Value & _
.Range("C" & i).Value & .Range("D" & i).Value & .Range("E" & i).Value & _
.Range("F" & i).Value & .Range("G" & i).Value & .Range("H" & i).Value & _
.Range("I" & i).Value & .Range("J" & i).Value

Print #IntFlNo, Replace(.Range("K" & i).Value, vbLf, "")
Next i
End With
Close #IntFlNo

---------------------------------------
A1：J1までは、データが入っています。
A1 あああああああああ
B1 いいいいいいいいいいい
C1 ううううううううううううううう
・
・
I1 改行を含むデータ
J1 改行を含むデータ

IとJ、その他全てセル内で改行されていることがあったため、
改行を置換し、A:JのデータをKに入れる。
そして、それ（K列）をテキストファイルに書き出す。

この動作をさせているのにも関わらず、出力されたデータは
I,Jなどで改行されたデータが出力されています。

どうやったら改行を含まず出力できるのでしょうか？
念のためK列に出力しましたが、K列上では改行はなくなっております。
でも、テキストファイルとして出力する前のK列の値を
Msgboxで出すと改行されてます…。

よろしくお願いします！

結局原因不明でした。
Print #IntFlNo, Replace(Replace(Replace(.Range("K" & i).Value, vbCr, ""), vbLf, ""), vbCrLf, "")
こうやったらうまく出力できました。