从Excel中创build文本文件

需要从Excel行创build文本文件。 第1列应包括文件名和第2列的文本文件的内容。 每一行都有新文件名或新文本文件的新内容。 另外，文本内容应该分成几行。 如何做到这一点？ 谢谢。

Answer 1

编辑解决scheme与文本分隔线。

对于示例，使用以下字符：

;：，/ |

根据需要将新分隔符添加到RegEx模式。 完整代码如下：

Sub Text2Files() Dim FileStream As Object Dim FileContent As String Dim i As Long Dim SavePath As String Dim RegX_Split As Object Set RegX_Split = CreateObject("VBScript.RegExp") RegX_Split.Pattern = "[\;\:\,\\\/\|]" 'List of used line seperators as \X RegX_Split.IgnoreCase = True RegX_Split.Global = True Set FileStream = CreateObject("ADODB.Stream") SavePath = "D:\DOCUMENTS\" 'Set existing folder with trailing "\" For i = 1 To ThisWorkbook.ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count FileContent = RegX_Split.Replace(ThisWorkbook.ActiveSheet.Cells(i, 2).Text, vbNewLine) FileStream.Open FileStream.Type = 2 'Text FileStream.Charset = "UTF-8" 'Change encoding as required FileStream.WriteText FileContent FileStream.SaveToFile SavePath & ThisWorkbook.ActiveSheet.Cells(i, 1).Text, 2 'Will overwrite the existing file FileStream.Close Next i End Sub 

1. 阅读有关ADOstream对象的更多信息： http ： //www.w3schools.com/ado/ado_ref_stream.asp
2. RegEx for beginners： http : //www.jose.it-berater.org/scripting/regexp/regular_expression_syntax.htm

上面的代码示例文件在这里： https : //www.dropbox.com/s/kh9cq1gqmg07j20/Text2Files.xlsm