使用VBmacros转换为文本（包括单元格内的换行符）
我想将一个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的build议的结果：包括换行符！ 但所有生成的文件都没有命名和保存，因为我想要的。 所有文件都会得到名称S-solutions加上Colum A的内容（例如S-solutionsS-4001-KT.txt），并保存在文件夹H：\ Webshop_Zpider中。 但是，我想要的是：文件名：列A（例如S-4001-KT.txt）和文件夹H：\ Webshop_Zpider \ S-solutions的内容。 我该如何改变呢？ 谢谢。
replace这个
Print #1, cell.Offset(0, 1).Text
同
Print #1, Replace(cell.Offset(0, 1).Value, vbLf, vbCrLf)
另外一个提示！ 不要使用.Text 。 使用.Value
首先你应该打开文本文件只有一次，而不是每个单元然后你可以做
Print #1, cell.Offset(0, 1).Text & vbnewline
对于文本和一个新的行。