Excel-VBA操作文件四大方法之二.docVIP

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、ChDi