Excel单元格中的数据输出到.txt

以第3列单元格中的数据为名称，建立.txt 文件，并写入第6列中的数据。从第2行循环至205行。

共创建204个.txt文件。代码如下：

Sub importData()
Dim sFile As Object
Dim FSO As Object
Dim iRow As Integer

Set FSO = CreateObject("Scripting.FileSystemObject")

'loop process:
For iRow = 2 To 205
Set sFile = FSO.CreateTextFile("Your path/" & Sheet1.Cells(iRow, 3).Value & ".txt", True)
sFile.writeline (Sheet1.Cells(iRow, 6).Value)

Next iRow

sFile.Close
Set sFile = Nothing
Set FSO = Nothing

End Sub

这里有更详细的讲解：http://www.excelpx.com/blog-11303-5308.html