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

1、首先打开工作表，点击【开发工具】下的【Visual Basic 】选项。

2、打开VBA工程窗口后，在左侧的“ThisWorkbook”上面单击右键，选择“插入”，“模块”。

3、在“模块1”的代码窗口里面输入以下VBA代码。

4、按下F5键，或者点击VBA工程窗口上面的“运行”图标运行VBA程序，之后就会自动复制工作表，改变工作表名称，改变工作表标签颜色等。

5、VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错，在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。

Name 语句

请参阅 示例 特性

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

语法

Name oldpathname As newpathname

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

部分

描述

oldpathname

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

newpathname

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

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

说明

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

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

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

的统配符。

---