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

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

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


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, "")
こうやったらうまく出力できました。

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com