网站虚拟主机公司,国内做seo公司简介,网页链接下载,满分作文网站大家好#xff0c;我们今日继续讲解VBA代码解决方案的第132讲内容#xff1a;使用 Write #语句把数据写入打开顺序文件中。在上一讲的内容中我们讲了打开一文本文件来写入数据的两种方法有#xff1a;Append或Output#xff0c;那么问题来了#xff0c;如何往打开的文件中…大家好我们今日继续讲解VBA代码解决方案的第132讲内容使用 Write #语句把数据写入打开顺序文件中。在上一讲的内容中我们讲了打开一文本文件来写入数据的两种方法有Append或Output那么问题来了如何往打开的文件中写入数据呢这一讲我们就开始讲解写入数据的方法。今天讲的是Write #语句它会将数据写入文件。当你使用打开一个顺序文件的时候通常使用Write #语句往该文件写入数据。语法Write #filenumber, [outputlist]参数①Filenumber正使用的文件的号码它是Write #语句的唯一必须的参数。②Outputlist是将要写入的文本。Outputlist可以是你要写入的单个文本字符也可以是包含数据的变量清单。备注如果你只明确了文件号码VBA就会在打开的文件里写入一个空行。下面我们通过一个实例来演示数据是如何写入文件的代码Sub mynznewEntry()Dim newname As StringDim sex As StringDim newbirthdate As DateDim news As IntegerOpen E:zwork文章人员表单最新版.txt For Output As #1 这里用的是Outputnewname 张1sex 男newbirthdate #1/2/1996#news 3Write #1, newname, sex, newbirthdate, newsnewname 张2sex 女newbirthdate #5/12/1994#news 2Write #1, newname, sex, newbirthdate, newsnewname 张3sex 女newbirthdate #4/7/1997#news 1Write #1, newname, sex, newbirthdate, newsClose #1End Sub代码截图上面的过程打开文件E:zwork文章人员表单最新版.txt来写入数据。因为该文件还不存在所以VBA将首先创建了一个全新的文件并写入三条记录。字符串由双引号分隔而生日则用#号包围起来当我们打开文件E:zwork文章人员表单最新版.txt时你将看到下述的记录补充说明Write #语句自动在每个数据之间插入逗号并且将行结束字符(Chr(13) Chr(10))放在每行文本的后面所以每行新纪录都从新的行开始。在上面的例子里面每行文本显示一条记录—— 每条记录以姓名开始以最后的数字结束。那么上述的过程有没有简单的方法来录入呢把工作表中的数据如何写入文本文件中呢由于篇幅的原因这能在《VBA代码解决方案》第三册的内容中再详细的介绍了和上述代码的思路是一致的。今日内容回向1 如何往文件中写入数据呢2 Write #语句写入数据有什么特点呢
