excel - VBマクロでテキスト化（セル内改行含む）

Question

Excel シートを複数のテキスト ファイルに変換したいと考えています。シートには次の 2 つの列が含まれています。

• 列 A には、生成されたテキスト ファイルの名前が表示されます。
• 列 B はコンテンツを提供します - セル内に改行が含まれています

変換は次のコードを使用して行われますが、改行はテキスト ファイルにインポートされません。すべてのテキストが 1 行になります。

Private Sub CommandButton1_Click()
    Dim oTxt As Object

    For Each cell In Ark1.Range("A1:A" & Ark1.UsedRange.Rows.Count)
        ' you can change the sheet1 to your own choice    
        saveText = cell.Text
        Open "H:\Webshop_Zpider\S-solutions" & saveText & ".txt" For Output As #1
        Print #1, cell.Offset(0, 1).Text
        Close #1
    Next cell
End Sub

誰でもそれを手伝ってもらえますか？

こんにちは、Siddharths の提案を使用した結果: 改行が含まれています! しかし、生成されたすべてのファイルは、私が望むように名前を付けて保存するわけではありません。すべてのファイルは、S-solutions という名前と列 A の内容 (例: S-solutionsS-4001-KT.txt) を取得し、フォルダ H:\Webshop_Zpider に保存されます。ただし、私が欲しいのは: ファイル名: 列 A (egS-4001-KT.txt) の内容とフォルダー H:\Webshop_Zpider\S-solutions です。どうすればそれを変更できますか? ありがとう。