通过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 使用系统默认值打开文件。
一般情况下，不用填写这个参数。使用缺省即可。