Excel-VBA操作文件四大方法之二 利用VBA文件处理语句来处理文件.docxVIP

Excel-VBA操作文件四大方法之二二、利用VBA文件处理语句来处理文件 VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。（一）文件处理 1.Name 语句语法：Name oldpathname As newpathname功能：重命名一个文件、目录、或文件夹，移动一个文件。说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。示例：On Error Resume Next????错误处理Name f:\TEST.xls As f:\TEST123.xls??重命名Name f:\TEST.xls As f:\dll\TEST.xls??移动文件Name f:\TEST.xls As d:\TEST123.xls??跨驱动器移动并重命名文件注意：Name不能移动一个目录或文件夹。2、FileCopy 语句语法：FileCopy source, destination功能：复制一个文件。说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。示例：FileCopy f:\TEST.xls, e:\TEST.xls??从F盘复制TEST.xls到E盘3、Kill 语句语法：Kill pathname功能：从磁盘中删除文件。说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。如果使用 Kill 来删除一个已打开的文件，则会产生错误。示例：Kill f:\TEST.xls??’删除F盘的TEST.xls文件Kill f:\*.xls??? 删除F盘所有xls文件4、GetAttr 函数语法：GetAttr(pathname)功能：获取一个文件、目录、或文件夹的属性。返回一个 Integer值。返回值由 GetAttr 返回的值，是下面这些属性值的总和：常数?值?描述 vbNormal ??0常规 vbReadOnly ??1只读 vbHidden ??2隐藏 vbSystem ??4??系统文件vbDirectory ??16目录或文件夹 vbArchive ??32存档文件 vbalias ??64指定的文件名是别名。只在Macintosh中可用。 说明：若要判断是否设置了某个属性，在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。示例：Debug.Print GetAttr(F:\test.txt)?若为存档文件，在立即窗口可看到值为32Debug.Print GetAttr(F:\test.txt)?将属性—高级—可存档文件的勾去掉后，值为0为判断一个文件是否只读，可用下法:Debug.Print GetAttr(F:\test.txt) And vbReadOnly若值非零，说明时只读的。5、SetAttr 语句语法：SetAttr pathname, attributes功能：为一个文件设置属性。说明：如果想要给一个已打开的文件设置属性，则会产生运行时错误。示例：SetAttrF:\test.txt, vbHidden??? ??? 设置隐藏属性。SetAttrF:\test.txt, vbHidden + vbReadOnly??? ?? 设置隐藏并只读。6、FileLen 函数语法：FileLen(pathname)功能：获取一个文件的长度，单位是字节。说明：当调用 FileLen 函数时，不需要打开文件，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。7、FileDateTime 函数语法：FileDateTime(pathname)功能：获取一个文件被创建或最后修改后的日期和时间。示例：Debug.Print FileDateTime(F:\TEST.xls)??在立即窗口可看到2007-3-29 19:28:27 （二）目录处理1、CurDir 函数语法：CurDir[(drive)]功能：返回当前的路径。说明：drive 参数是可选的，它指定一个存在的驱动器。如果没有指定驱动器，或 drive 是零长度字符串 ()，则 CurDir 会返回当前驱动器的路径。示例：Debug.Print CurDir??? ?? 返回“C:\Documents and Settings\yc\My Documents”。Debug.Print CurDir(C)??? ? 返回“C:\Documents and Settings\yc\My Documents”。Debug.Print CurDir(D)??? ? 返回“D:\”。2、ChDir 语句语法：ChDir path功能：改变当前的目录或