vba创建、读写记事本txt文件代码示例

　　 　　

　　通过Excel操作记事本，极其方便，可以很方便的为我们提取部分数据。

　　本文，与您分享通过VBA，如何创建、将数据写入记事本TXT文件。

　　代码如下：

　　Dim fs, f, a, s, i
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.OpenTextFile("c:\123.txt", 8, True)
　　f.writeline Target.Row
　　'f.write Target.Row
　　f.Close

　　代码解释：

　　f.writeline 代表写入数据的时候换行写入；f.write 代表写入数据的时候不换行，都在同一行接着写入。

　　Set f = fs.OpenTextFile("c:\123.txt", 8, True)，含意是：打开c:\123.txt文件；8代表从文件的末尾开始接着写入数据；True代表，如果c:\123.txt文件不存在，则创建此文件；

　　fs.OpenTextFile()包含四个参数，即fs.OpenTextFile(参数1，参数2，参数3，参数4)，下面，分别针对此四个参数做介绍。

　　①参数1

　　指明要打开文件的字符串表达式，也就是要打开的记事本文件的路径。

　　②参数2

　　1代表以只读方式打开文件。 不能写这个文件。 　　

　　2以写方式打开文件 　

　　8 打开文件并从文件末尾开始写。

　　③参数3

　　指明当指定的 filename 不存在时是否创建新文件。

　　如果创建新文件则值为 True ，如果不创建则为 False 。 如果忽略，则不创建新文件。

　　④参数4

　　TristateTrue 以 Unicode 格式打开文件。 　　

　　TristateFalse 以 ASCII 格式打开文件。 　　

　　TristateUseDefault 使用系统默认值打开文件。

　　一般情况下，不用填写这个参数。使用缺省即可。