excel - 使用 VBA 宏转换为文本(包括单元格内的换行符)

Question

我想将 Excel 工作表转换为多个文本文件。该工作表包含两列:

• A 列给出生成的文本文件的名称
• B 列提供内容 - 单元格内包含换行符

使用以下代码进行转换，但换行符不会导入到文本文件中 - 所有文本都在一行中:

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-K-T.txt)，并保存在文件夹 H:\Webshop_Zpider 中。但是，我想要的是:文件名:A列的内容(例如S-4001-K-T.txt)和文件夹H:\Webshop_Zpider\S-solutions。我怎样才能改变这一点？谢谢。

Answer 1

替换这个

Print #1, cell.Offset(0, 1).Text

与

Print #1, Replace(cell.Offset(0, 1).Value, vbLf, vbCrLf)

还有一个提示!不要使用.Text。使用.Value