文本文档简单代码简单的txt编程代码( 二 )

文章插图
代码讲解：
1） myFile = ThisWorkbook.Path & “testin.txt” 给文件名变量赋值。给出要存储的文件路径及文件名。
2）Set rng = Range(“A1”).CurrentRegion 指定要导入的数据区域。为A1单元格的当前区域。
3）Open myFile For Output As #1 打开这个文件
4）For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
cellValue = https://www.wangchuang8.com/rng.Cells(i, j).Value
If j = rng.Columns.Count Then
Write #1, cellValue
Else
Write #1, cellValue,
End If
Next
Next
以上代码向文件中写入数据。注意其中行列的标识。当出现列的尾部时加入了逗号。
5) Close #1 关闭一个文件。
4 写入信息到文本文件的效果我们点击运行。这个时候会产生一个文件testin.txt 。代码运行完成后我们打开这个文件：

文章插图

文章插图
上述内容信息有些乱。我们修改代码中的“testin.txt”为“testin.csv”这个时候会建立一个csv文件。我们看实现的效果：

文章插图

文章插图
这时的效果比刚才的文件效果要好些。
今日内容回向：
1）如何向文本文件中写入信息？
2）向文本文件中写入信息时行列如何变化？
3） write语句应用有哪些注意点？

文章插图

文章插图
本讲内容参考程序文件：工作簿14.xlsm
分享成果。随喜正能量
VBA的学习教程（初级、中级、高级）：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前。谁能在数据处理方面做到极致。谁就是王者。其中登峰至极的技能非VBA莫属！我记得20年前自己初学VBA时。那时的资料甚少。只能看源码自己琢磨,真的很难。20年过去了。为了不让学习VBA的朋友重复我之前的经历。我根据自己多年VBA实际利用经验。推出了八部VBA专门教程。学习顺序七、一（或者四）、三、二、六、五；或者七、八。其中七。一（或者四）是初级；三。二。八是中级；六。五是高级：
第一套：VBA代码解决方案是VBA中各个知识点的讲解。教程共147讲。覆盖绝大多数的VBA知识点。提供的程序文件更是一座不可多得的代码宝库。是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版。程序文件通过32位和64位两种OFFICE系统测试。
第二套：VBA数据库解决方案数据库是数据处理的专业利器。教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。适合中级人员的学习。目前这套教程提供的是修订第一版教程。程序文件通过32位和64位两种OFFICE系统测试。
第三套：VBA数组与字典解决方案数组和字典是VBA的精华。字典是VBA代码水平提高的有效手段。值得深入的学习。是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版。程序文件通过32位和64位两种OFFICE系统测试。
第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解。可以快速入门。更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解。视频更易接受。
第五套：VBA中类的解读和利用这是一部高级教程。讲解类的虚无与肉身的度化。类的利用虽然较少。但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了。领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版。程序文件通过32位和64位两种OFFICE系统测试。
第六套教程：VBA信息获取与处理。这是一部高级教程。涉及范围更广。实用性更强。面向中高级人员。教程共二十个专题。包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作。剪切板应用、Split函数扩展、工作表信息与其他应用交互。FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
第七套教程：VBA之EXCEL应用这是一部初级教程这部教程共三册。从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起。到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用。函数过程等方面。一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。