セル内改行があるエクセルをテキスト出力 (ID:88041)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ありがとうございます。Replace関数でうまくいきました。 それにして同じMicrosoft製品で改行コードが異なるのも おかしな感じがしますね。 Set rst = DB.OpenRecordset("Sheet1$", dbOpenTable) Do While Not rst.EOF data1 = rst!１列目 data1 = Replace(data1, vbLf, vbCrLf) <<< これで解決！ Open "output.txt" For Output As #1 Print #1, data1 Close #1 rst.MoveNext Loop