ExcelVBA操作文本文档TXT文件的方法(一)

1、VBA使用FileSystemObject 将读取或写入文本文件(一)有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject对象来进行操作。在接下来的几篇里我们介绍如何使用 FileSystemObject 对象操作文本文件的。 工欲善其事，必先利其器，那么我们就先 花几篇文章来详细介绍下 FileSystemObject 对象。一、如何创立FileSystemObject 对象在VBA中，是通过 CreateObject 函数返回FileSystemObject

2、对象。例如：Dim fso As ObjectSet fso=CreateObject(Script in g.FileSystemObject)二、FileSystemObject 主要方法介绍1、CreateTextFile 方法：用于创立一个指定文件名，并返回一个可操作的TextStream对象。语法：object.CreateTextFile(filename,overwrite,unicode)参数说明object必需的。为一个FileSystemObject对象的名字file name必需的，一个带路径的字符串表达式，为创立的文件overwrite可选的。Boolean值，如果为T

3、rue表示覆盖已存在的文件，False表示不能覆 盖。默认值为False。uni code可选的。Boolea n值，表示文件是作为一个Uni code文件创立的还是作为一个 ASCII文件创立的。如果为True那么表示作为Unicode文件创立，False表示作 为ASCII文件创立。默认值为False。例如1：在中创立一个名为testFile的文本文件，并写入一行“CreateTextFile TestSub CreateFile()Dim sFile As Object , FSO As ObjectSet FSO = CreateObject( Script in g.FileSyst

4、emObject )( Set sFile = Noth ingSet FSO = Noth ingEnd Sub2、DeleteFile 方法：用于删除一个指定的文件。如果指定的文件不存在，那么返回一个错误信息。语法：object.DeleteFile(filespec,force)参数说明object必需的。为一个FileSystemObject对象filespec必需的。要删除文件的名字。可以在最后的路径部件中包含通配符force可选的。Boolean值，如果要删除具有只读属性设置的文件，那么为True。如果不能删除具有只读属性设置的文件，那么为False。默认值为False例如2:删除

5、例如1中创立的文本文件。Sub DeleteFile()Dim fso As ObjectSet fso = CreateObject(Script in g.FileSystemObject)fso.DeleteFile ( C:FSOTestTestFile.txt )End Sub3、FileExists 方法：判断指定的文件是否存在。如果存在，那么返回True，假设不存在，那么返回 False语法：object.FileExists(filespec)参数object filespec说明必需的。为一个FileSystemObject对象必需的。要确定是否存在的文件名。如果认为文件不在

6、当前文件夹中， 必须提供一个带完整的路径说明。例如3：判断“中是否存在文件“Sub FileExist()Dim fso As Object , blnExist As BooleanSet fso = CreateObject( Script in g.FileSystemObject )(C:FSOTesttestfile.txt )MsgBoxbIn ExistEnd Sub4、OpenTextFile方法：翻开一个指定的文件并返回一个TextStream 对象，该对象可能于对文件进行读操作或追加操作。语法：object.OpenTextFile(filename,iomode,crea

7、te,format)参数说明object必需的。始终是一个FileSystemObject的名字file name必需的。为一个文件名，包含完整路径说明omode可选的。表示输入/输出方式。可为两个常数之一：ForReading 或 ForAppending。create可选的。Boolea n 值，它表示如果指定的 file name 不存在是否可以 创立一个新文件。如果创立新文件，其值为True。假设不创立文件其值为 False。缺省值为 False。format可选的。三种 Tristate值之一，用于指示翻开文件的格式。如果省二略，那么文件以ASCII格式翻开。|参数iomode可以设

8、置为以下值:常数值说明ForReadi ng1翻开一个只读文件。不能对此文件进行写操作ForWrit ing2翻开一个可读写操作的文件，并删除原有文本内容ForAppe nding8翻开一个文件并写到文件的尾部参数format可以设置为以下值:常数值说明TristateUseDefault-2使用系统缺省翻开文件TristateTrue-1以Uni code格式翻开文件TristateFalse0以ASCII格式翻开文件例如4：本例说明了使用 OpenTextFile方法翻开testfile.txt 文件，并添加文字“ OpenTextFileTest ：Sub Ope nTextFile()Dim fso As Object , sFile As ObjectCon st ForRead ing = 1, ForWrit ing = 2, ForAppe nding = 8, TristateFalse =0Set fso = CreateObject(Script in g.FileSystemObject)Set sFile = fso.Ope