职场的你 。随着年龄的增长 。往往无法选择回程 。时光无法倒流 。但是你可以清晰地面对已经出现的挑战 。努力去调整 。并相信自己可以成功 。你对过去无能为力 。但你只要你努力 。坚信自己 。职场往往就能柳暗花明 。
《VBA之excel应用》是非常经典的 。是我推出的第七套教程 。定位于初级 。这套教程无论是理论知识还是具体应用 。内容都非常丰富 。同时在讲解的过程中我会从我多年实践的角度给大家以不经意间的指导 。让大家在不知觉间会更好的利用VBA这个工具 。是的 。代码习惯非常重要 。
这套教程从简单的录制宏开始讲解 。一直到窗体的搭建 。内容丰富 。实例众多 。大家可以非常容易的掌握相关的知识 。这套教程共三册 。十七章 。都是我们在利用EXCEL工作过程中需要掌握的知识点 。希望大家能掌握利用 。今日讲解的内容是“VBA之EXCEL应用”的第十四章“应用程序对象(application Object)”的第7节：如何将数据写入到文本文件
文章插图
文章插图
第七节 如何将数据写入到文本文件在上一讲中我们讲了如何利用open语句打开一个文件并提取文件的信息到工作表中的方法 。这讲 。我们将讲解如何将信息写入到文本文件中 。
1 将数据写入文本文件的思路分析为了实现将数据写入文本文件 。我们仍是要先打开这个文件 。本讲的代码中 。我们利用
Open myFile For Output As #1 在OPEN语句中当参数mode为Output时允许用户向这个文件中写入信息 。利用该语句允许文件被写入 。如果该文件已经存在 。它将被删除 。并创建一个同名的新文件 。这一点大家要小心操作 。不然文件将被覆盖 。
创建了一个新的文件后 。我们就可以向其中写入信息了 。利用的Write语句 。这个语句会将信息写入到文本文件中 。
2 Write # 语句语法：Write #filenumber、[ outputlist ]
参数：
1）filenumber 必需 。任何有效的文件编号 。
2）outputlist 可选 。可写入到文件中的一个或多个逗号分隔的数值表达式或字符串表达式 。
使用Write # 写入的数据通常是从带Input #的文件中读取的 。如果您省略 outputlist 并在 filenumber 之后包含一个逗号 。则会将空行打印到文件中 。多个表达式可使用空格、冒号或逗号进行分隔 。空格的效果与冒号一样 。
当Write # 用于将数据写入文件时, 将遵循几个通用假设, 以便始终可以使用Input # 读取和正确地解释数据, 而不管区域设置如何:
1) 始终使用句点作为小数分隔符写入数值数据.
2) 对于 Boolean 数据 。将打印 #TRUE# 或 #FALSE# 。无论区域设置如何,都不翻译True和False 关键字 。
【文本文档简单代码 简单的txt编程代码】3) 日期数据使用通用日期格式写入文件 。当日期或时间组件缺失或为零时 。仅提供的部分将被写入到文件中 。
4) 如果 outputlist数据为Empty 。则不向文件中写入任何内容 。但是对于Null数据 。将写入 #NULL# 。
5) 如果outputlist数据为Null数据, #NULL#则会被写入到文件中 。
6) 对于 Error 数据 。输出将显示为 #ERROR errorcode# 。将不会翻译 Error 关键字 。而不管区域设置如何 。
与Print # 语句不同, 在写入文件时Write # 语句在项和字符串的引号之间插入逗号。您不必在列表中放置显式的分隔符 。Write # 在将outputlist中的最后一个字符写入到文件中后, 插入一个换行符, 即回车换行符 (Chr(13) + Chr(10)) 。
不应写入包含嵌入的引号的字符串, 例如, “1,2””X”与Input # 语句一起使用;Input # 将此字符串分析为两个完整且独立的字符串 。
3 将数据写入文本文件的实例应用我们看下面的代码：
Sub mynzK() ‘向文本文件中写入信息
Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
myFile = ThisWorkbook.Path & “testin.txt”
‘myFile = ThisWorkbook.Path & “testin.csv”
Set rng = Range(“A1”).CurrentRegion
Open myFile For Output As #1
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
Close #1
End Sub
代码截图：
文章插图
推荐阅读
- 宝宝10个月后能够咀嚼的时候,什么辅食适合吃,什么辅食不适合吃？
- 为什么没有大明星的《羞羞的铁拳》的票房会碾压大牌云集的《空天猎》《缝纫机乐队》？
- 十个月的宝宝,有没有好的辅食推荐？
- 王者荣耀亚瑟专属装备怎么样 亚瑟专属装备属性和效果介绍
- 10个月会爬的宝宝吃什么辅食好？
- 中国男裤品牌排行榜前十名 中国最好的男裤品牌
- 羞羞的铁拳无疑是今年国庆档的票房黑马,那和英伦对决相比,谁将成国庆档的票房冠军？
- 10个月宝宝稀饭的做法有哪些？
- 原耽入坑必读书单,必看原耽小说推荐