大家好，我们今日继续讲解VBA代码解决方案的第77讲内容：如何导出文件，形成一个文本文件，如果需要将工作表中的数据保存为文本文件，可以创建一个文本文件用于保存数据。

应用于FileSystemObject对象的CreateTextFile方法创建一个指定的文件并且返回一个用于该文件读写的TextStream对象，语法如下：

object.CreateTextFile(filename[, overwrite[, unicode]])

参数a) object是必须的，FileSystemObject对象的名字。

b) filename是必须的，需要创建的文件名称。

c) overwrite是可选的，表示是否覆盖已存在文件。如果可被覆盖其值为True，其值为False时不能覆盖，如果省略，则已存在文件不能覆盖。

d) unicode是可选的，表示文件是作为一个Unicode文件创建的还是作为一个ASCII文件创建的。如果作为一个Unicode文件创建，其值为True，作为一个ASCII 文件创建，其值为False，如果省略，则认为是一个ASCII文件。

使用CreateTextFile方法创建文本文件，如下面的代码所示。

Sub MyCreText()

Dim MyFile As Object

Dim myStr As String

Dim j As Integer, i As Integer

Set MyFile = CreateObject("Scripting.FileSystemObject") _

.CreateTextFile(ThisWorkbook.Path & "" & "人员表单.txt", True)

For i = 1 To Range("A65536").End(xlUp).Row

myStr = ""

For j = 1 To Range("IV"& i).End(xlToLeft).Column

myStr = myStr & Cells(i, j) & ","

Next

myStr = Left(myStr, (Len(myStr) - 1))

MyFile.WriteLine (myStr)

Next

MyFile.Close

Set MyFile = Nothing

End Sub

代码解析：MyCreText过程使CreateTextFile方法创建一个指定名称的文本文件并将工作表数据写入到文件内。

第5、6行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile后使用CreateTextFile方法创建一个指定名称的文本文件。

第7行代码逐行读取工作表数据。

第8行代码清空字符串变量myStr的内容，用来保存下一行的数据。

第9行代码遍历当前行的所有单元格。

第10行代码将当前行的所有单元格保存到字符串变量myStr中并以逗号进行分隔。

第12行代码去除保存在字符串变量myStr中当前行数据的最后一个逗号。

第13行代码使用WriteLine方法将当前行数据写入到创建的文本文件。

备注：应用于TextStream对象的WriteLine方法写入一个指定的字符串和换行符到一个TextStream文件中，语法如下：object.WriteLine([string])其中参数object是必须的，TextStream对象的名字。参数string是可选的，要写入文件的正文。如果省略，写入一个换行符。

第15行使用Close方法关闭打开的文本文件。

代码截图：

打开文件看看：

今日内容回向：

1 如何导出文件，并形成一个文本文件呢？

2 object.CreateTextFile 的意义是什么？

欢迎大家到我的自媒体平台沟通交流：个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。

这一系列文章是根据我多年的工作经验编写的，也是一直在利用的工具，非常方便好用。现在分享出来，希望能对同样在职场打拼的朋友有些许的帮助，使你的工作更加高效、流畅。朋友们有问题请随时提出来，我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我，及时为你提供专业的定制技术支持。

工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的，时间会抹去很多问题。多关注自己、家人和朋友，这些才是我们生活中更为重要的东西。