VBA 使 用 FileSystemObject 将 读 取 或 写 入 文 本 文 件 (一 ) 分类: VBA 2010-08-12 11:40 1211 人阅读 评论(0) 收藏 举报 有时,我们需要将一个文本文件中的数据读取到Excel 单元格中,或将指定单元格的内容按指定的格式导出到文本文件中,这时,我们就需要使用Scripting.FileSystemObject 对象来进行操作。在接下来的几篇里我们介绍如何使用FileSystemObject 对象操作文本文件的。工欲善其事,必先利其器,那么我们就先花几篇文章来详细介绍下FileSystemObject 对象。 一、如何创建 FileSystemObject 对象 在VBA 中,是通过 CreateObject 函数返回 FileSystemObject 对象。 示例: Dim fso As Object Set fso=CreateObject("Scripting.FileSystemObject") 二、FileSystemObject 主要方法介绍 1、CreateTex tFile 方法:用于创建一个指定文件名,并返回一个可操作的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 值,如果要删除具有只读属性设置的文件,则...