三亚网站推广团队,哪有做网站 的,酒店小程序定制开发,提供网站建设教程的网站大家好#xff0c;我们今日继续讲解VBA代码解决方案的第77讲内容#xff1a;如何导出文件#xff0c;形成一个文本文件#xff0c;如果需要将工作表中的数据保存为文本文件#xff0c;可以创建一个文本文件用于保存数据。应用于FileSystemObject对象的CreateTextFile方法创…大家好我们今日继续讲解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学习交流群”。这一系列文章是根据我多年的工作经验编写的也是一直在利用的工具非常方便好用。现在分享出来希望能对同样在职场打拼的朋友有些许的帮助使你的工作更加高效、流畅。朋友们有问题请随时提出来我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我及时为你提供专业的定制技术支持。工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的时间会抹去很多问题。多关注自己、家人和朋友这些才是我们生活中更为重要的东西。
