Excel 从行数据创建文本文件答案

【问题标题】：Excel Create Text Files From Row DataExcel 从行数据创建文本文件
【发布时间】：2014-12-29 22:17:51
【问题描述】：

我有一个 Excel 工作表，其中 A 列中的记录 ID 和 B 列中的文本值。我需要为每个包含 B 列中匹配文本的唯一记录 ID 创建一个文本文件。列中有 362 个唯一记录 ID A 和 1,825 条记录。

我搜索了 Stack Overflow 并找到了下面的链接，该链接可用于为每个唯一的记录 ID 创建单独的文本文件。但是，这是用所有重复值覆盖文本文件（仅保存最后一个记录 ID 和文本，而不是与每个记录 ID 匹配的所有文本值）。如何编辑此脚本，以便在文本文件存在时对其进行更新而不是覆盖？

Create text Files from every row in an Excel spreadsheet

【问题讨论】：

我这里有一些代码：stackoverflow.com/a/27360529/4241535，它将删除您的重复项并在记录 ID 之后的每个条目中创建一行。（需要对您的目的稍作修改）。

标签： excel vba

【解决方案1】：

只是一个使用CreateTextFile方法的例子

Option Explicit
Public Sub Example()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Dim TextFile As Object
    Set TextFile = FSO.CreateTextFile("D:\example.txt", True)
        TextFile.WriteLine ThisWorkbook.Sheets("Sheet1").Range("A1").Text
        TextFile.Close
End Sub

【讨论】：