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

名前

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

本文 VisualBasic6.0を使用しています。 エクセルのデータをテキストに出力させる場合、セル内で改行されていると 出力先のテキストファイルでは改行部分が正しく表示されません(黒マス上に なり１行で表示される)。 どこかで改行コード変換の工夫をする必要があるのでしょうか？ （たとえばこのような場合です） strConnect = "Excel 8.0;DATABASE=C:\input.txt" Set DB = OpenDatabase("C:\input.txt", False, False, strConnect) Set rst = DB.OpenRecordset("Sheet1$", dbOpenTable) Do While Not rst.EOF data1 = rst!１列目 Open "output.txt" For Output As #1 Print #1, data1 Close #1 rst.MoveNext Loop