《VBA经典应用69例》版权10178981是我推出的第九套教程教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开这套教程案例众多紧贴“实战”并做“战术总结”以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题今日内容是VBA经典应用69例应用10第5部分 阅读然后将内容写入文本文件【分享成果随喜正能量】成年人只能筛选不能教育。人教人教不会事教人一次就够。吃亏和吃饭一样吃多了自然就会成长人生的重启方式在于信心的强大勇敢一些快乐一些增加信心升华情怀。那些暂时化解不了的生命困顿便用情怀的超越去转化它。应用10第5部分 阅读然后将内容写入文本文件实例4先读后写文件在此示例中我们首先以读取模式打开文本文件并将其内容复制到变量。然后我们修改其内容并使用写模式打开相同的文本文件。最后我们将修改后的内容写入文件。我们仍是利用我给客户写的一个需求书为例在修改的过程中把第二个工作表改成第六个工作表。我们看下面的代码Sub mynzD()Dim txt_file As IntegerDim file_path As StringDim file_content As StringDim new_file_content As String 为变量指定文件路径file_path ThisWorkbook.Path \打开文件.txt 确定Open函数要使用的下一个可用文件号txt_file FreeFile 文本文件以只读模式打开Open file_path For Input As txt_file 将文件内容存储在变量中file_content InputB(LOF(txt_file), txt_file)file_content StrConv(file_content, vbUnicode) 关闭打开的文本文件Close txt_file 查找并替换一些文本file_content Replace(file_content, sheet2, sheet6) 确定Open函数要使用的下一个可用文件号txt_file FreeFile以写状态打开文本文件Open file_path For Output As txt_file 将修改后的内容写入文件Print #txt_file, file_content 关闭打开的文本文件Close txt_fileEnd Sub代码截图代码的解读1file_content InputB(LOF(txt_file), txt_file)file_content StrConv(file_content, vbUnicode)以上代码是将打开的文件内容放入变量file_content中然后做一下代码的转换。2file_content Replace(file_content, sheet2, sheet6)以上代码将sheet2替换为sheet6。3 Print #txt_file, file_content以上代码将变量的内容写入文件中。代码的运行结果在运行前txt文件的内容运行代码后我20多年的VBA实践经验全部浓缩在下面的各个教程中