VBA使用FileSystemObject将读取或写入文本文件VIP免费

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 值，如果要删除具有只读属性设置的文件，则...