人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルマクロ(VBA)について質問です。

エクセルのセルの内容をテキストファイルに出力するマクロを組んでいるのですが、改行がうまく反映されません(ムダな改行が追加されてしまう)
何が原因なのでしょうか?

たとえば、エクセルのB列のセルに以下のような改行ありの文章が入力されている
------------------------------
今日は天気です。
今週はずっと晴天が続きます。
来週は雨模様になるでしょう。
------------------------------

しかし、これをテキストファイルに出力すると以下のようになってしまいます(改行が追加される)
------------------------------
今日は天気です。

今週はずっと晴天が続きます。

来週は雨模様になるでしょう。
------------------------------

ソースの一部

iOutFileNo1 = FreeFile
Open sOutFilePath1 For Output Access Write As #iOutFileNo1


For lIdx1 = 3 To lMaxRow
With Sheet1
naiyo = Trim(Cells(lIdx1, 2))
End With

Print #iOutFileNo1, naiyo
Next lIdx1
Close #iOutFileNo1

●質問者: Ryo0524
●カテゴリ:コンピュータ インターネット
✍キーワード:access as NeXT open print
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● b19901108
●100ポイント ベストアンサー

naiyo = Trim(Cells(lIdx1, 2))

→naiyo = Trim(Cells(lIdx1, 2).value)

でどうですか?

◎質問者からの返答

やってみましたができませんでした。

ちなみに

naiyo = Range("B",lIdx1).value

もやってみましたが同じでした。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ