Question

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

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

Create text Files from every row in an Excel spreadsheet

提前感谢您的指导/帮助。

Answer 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

Excel从行数据创建文本文件

1 个答案: