自动从Excel创build文本文件

任何方式来创build包含不同ID的单独的文本文件。 我希望文本文件的内容是“Starting_Year”。

例如：

Starting_Year Code ID ------------------------------------ 1982 ALLRIN 400200583 1983 ALLRIN 000083522 1983 ALLRIN 400200583 

这将创build两个文本文件，命名为“1982”，“1983”。 “1982”文件包含“400200583”，“1983”文件包含“000083522”和“400200583”。

Answer 1

我会用这个Scripting.FileSystemObject。

基本上，创build一个FileSystemObject对象并创build返回一个文本stream的文件。 然后使用TextStream对象，你可以写你的数据…

使用的function是：

 Public Function CreateTextFile(FileName As String, Optional Overwrite As Boolean = True, Optional Unicode As Boolean = False) As Scripting.TextStream End Function 

你提供一个名字，并称之为：

 Dim oTs as Scripting.TextStream set oTs = CreateTextFile(......) oTs.Write(....) 

希望有所帮助。