VBA如何实现移动工作簿、复制工作簿、删除工作簿？

新建一个文件夹,新建4个工作薄,名字分别是:表1.xls,表2.xls,表3.xls,代码.xls.然后在这个文件夹下面再新建一个文件夹名字橘首运为:移动到的文件夹.\x0d\x0a打开代码.xls 粘贴以下代码到代码.xls 工作薄的VBA窗口.分别执行代码过程\x0d\x0aSub 复制表1()\x0d\x0aFileCopy ThisWorkbook.Path &"/芹笑表1.XLS", ThisWorkbook.Path &"\移动到的文件夹圆梁\表1.XLS"\x0d\x0aEnd Sub\x0d\x0aSub 移动表2()\x0d\x0aFileCopy ThisWorkbook.Path &"/表2.XLS", ThisWorkbook.Path &"\移动到的文件夹\表2.XLS"\x0d\x0aKill ThisWorkbook.Path &"\表2.XLS"\x0d\x0aEnd Sub\x0d\x0aSub 删除表3()\x0d\x0aKill ThisWorkbook.Path &"\表3.XLS"\x0d\x0aEnd Sub

Name 语句

请参阅 示例 特性

重新命名一个文件、目录、或文件夹。

语法

Name oldpathname As newpathname

Name 语句的语法具有以下几个部分：

部分

描述

oldpathname

必要参数。字符串表达式，指定已存在的文件名和位置，可以迅拿包含岩态目录或文件夹、以及驱动器。

newpathname

必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由

newpathname 所指定的文件名不能存在。

说明

Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name 可跨驱动器移动文件。 但当 newpathname 和

oldpathname 都在相同的驱动器中时，只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。

在一个已打开的文件上使用 Name，将会产生错误。必须在改变名称之前，先关闭打开的文件。亩枣搭Name 参数不能包括多字符 (*) 和单字符 (?)

的统配符。

---