Excel VBA操作文本文档TXT文件的方法(一).docVIP

VBA使用FileSystemObject将读取或写入文本文件(一) ?有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject对象来进行操作。在接下来的几篇里我们介绍如何使用FileSystemObject对象操作文本文件的。工欲善其事，必先利其器，那么我们就先花几篇文章来详细介绍下FileSystemObject对象。 ??? 一、如何创建FileSystemObject对象 ??? 在VBA中，是通过CreateObject函数返回FileSystemObject对象。 ??? 示例： Dim fso As Object Set fso=CreateObject(Scripting.FileSystemObject) ??? 二、FileSystemObject主要方法介绍 ??? 1、CreateTextFile方法：用于创建一个指定文件名，并返回一个可操作的TextStream对象。 ??? 语法：object.CreateTextFile(filename[,overwrite[,unicode]]) 参数 说明 object 必需的。为一个FileSystemObject对象的名字 filename 必需的，一个带路径的字符串表达式，为创建的文件 overwrite 可选的。Boolean值，如果为True表示覆盖已存在的文件，False表示不能覆盖。默认值为False。 unicode 可选的。Boolean值，表示文件是作为一个Unicode文件创建的还是作为一个ASCII文件创建的。如果为True则表示作为Unicode文件创建，False表示作为ASCII文件创建。默认值为False。 ??? 示例1：在C:\FSOTest\中创建一个名为testFile的文本文件，并写入一行“CreateTextFile Test”： Sub CreateFile() Dim sFile As Object, FSO As Object Set FSO = CreateObject(Scripting.FileSystemObject) Set sFile = FSO.CreateTextFile(C:\FSOTest\TestFile.txt,True) sFile.WriteLine (CreateTextFile Test) sFile.Close Set sFile = Nothing Set FSO = Nothing End Sub ?? 2、DeleteFile方法：用于删除一个指定的文件。如果指定的文件不存在，则返回一个错误信息。 ?? 语法：object.DeleteFile(filespec[,force]) 参数 说明 object 必需的。为一个FileSystemObject对象 filespec 必需的。要删除文件的名字。可以在最后的路径部件中包含通配符 force 可选的。Boolean值，如果要删除具有只读属性设置的文件，则为True。如果不能删除具有只读属性设置的文件，则为False。默认值为False Sub DeleteFile() Dim fso As Object Set fso = CreateObject(Scripting.FileSystemObject) fso.DeleteFile (C:\FSOTest\TestFile.txt) End Sub ?? 3、FileExists方法：判断指定的文件是否存在。如果存在，则返回True，若不存在，则返回False ?? 语法：object.FileExists(filespec) 参数 说明 object 必需的。为一个FileSystemObject对象 filespec 必需的。要确定是否存在的文件名。如果认为文件不在当前文件夹中，必须提供一个带完整的路径说明。 Sub FileExist() Dim fso As Object, blnExist As Boolean Set fso = CreateObject(Scripting.FileSystemObject) blnExist = fso.FileExists(C:\FSOTest\testfile.txt) MsgBox blnExist End Sub ??? 4、OpenTextFile方法：打开一个指定的文件并返回一个TextStream对象，该对象可能于对文件进行读操作或追加操作。 ?